Bueno Bueno, vamos a ayudarte en lo que yo al respecto conozco de los printer. para empezar vamos a definir la escala:
Definimos algunas varialbes:
Código:
Dim HorizontalMargen, VerticalMargen As Single
Código:
'Papel Tamaño Carta = 21.59 x 27.94 Centimetros = 2550 x 3300 pixels
'Imprimimos la hoja en forma Horizontal
Printer.Orientation = vbPRORPortrait '2 Orientación Horizontal vbPRORLandscape '1 Horientación Vertical "vbPRORPortrait"
Printer.ScaleMode = vbCentimeters 'Ponemos la Escala en Centimetros
'Margenes
HorizontalMargen = (21.59 - Printer.ScaleWidth) / 2
VerticalMargen = (27.94 - Printer.ScaleHeight) / 2
'Con esto ya tenemos definida nuestra hoja y la forma en que sera impresa
Ahora trabajemos con las fuentes
Código:
Printer.Font = "Monotype corsiva" 'Tipo de Fuente
Printer.FontSize = 36 '20 'Tamaño de la Fuente
Printer.ForeColor = vbBlue 'Colocamos el Color Negro a la Fuente
Printer.FontBold = True 'Aplicamos el Atributo de Negro a la Fuente
todo esto te sirva para toda la impresión no es necesario definir constantemente, execto si quieres cambiar el tamaño o las fuentes entones tendrias que volver a definir solamente lo de las fuentes margenes y escalas es lo mismo.
y para mandar a imprimir hacemos esto
Código:
'AQUI tenemos que aclarar algo ya que estamos trabajando en centimetros no devemos pasarnos de los margenes que estan establecidos arriba. para tu caso seria mejor asi
printer.currenty=5
printer.currentx=5
printer.print "Primera Linea"
printer.currenty=5
printer.currentx=7
printer.print "Segunda Linea"
espero que con esto se te aclaren algunas dudas si no ya nos cuentas como te fue. un saludo y hasta pronto