Objeto printer en muchos textboxs y labels
Publicado por Sergio (4 intervenciones) el 12/04/2004 03:44:50
Estoy tratando de imprimir, mediante el objeto PRINTER.
El problema es que tengo un formulario con unos 70 textbox y labels, y el tipo y tamaño de texto de los labels es diferente al de los textboxs.
La forma que conozco de usar el printer es enviando uno a uno a la impresora, especificando posicion, tipo de letra, etc.
Como podria hacer mediante un bucle o algun procedimiento repetitivo
para que asigne el tipo de letra de forma automatica, es decir por ej si es textbox... asignar determinado tipo de letra y si es label asignar otro tipo de letra. (los labels y text, estan en forma de matriz)
Hay alguna forma de hacer esto sin escribir tanto codigo ?
Gracias
Sergio
EL objeto printer lo estoy usando de esta forma:
Private Sub Print_Click()
Printer.ScaleMode = 6
Printer.CurrentX = 50
Printer.CurrentY = 50
Printer.FontName = "Tahoma"
Printer.FontSize = 12
Printer.Print Label1.lbl
Printer.FontName = "Arial"
Printer.FontSize = 14
Printer.Print Text1(0).Text
Printer.EndDoc
El problema es que tengo un formulario con unos 70 textbox y labels, y el tipo y tamaño de texto de los labels es diferente al de los textboxs.
La forma que conozco de usar el printer es enviando uno a uno a la impresora, especificando posicion, tipo de letra, etc.
Como podria hacer mediante un bucle o algun procedimiento repetitivo
para que asigne el tipo de letra de forma automatica, es decir por ej si es textbox... asignar determinado tipo de letra y si es label asignar otro tipo de letra. (los labels y text, estan en forma de matriz)
Hay alguna forma de hacer esto sin escribir tanto codigo ?
Gracias
Sergio
EL objeto printer lo estoy usando de esta forma:
Private Sub Print_Click()
Printer.ScaleMode = 6
Printer.CurrentX = 50
Printer.CurrentY = 50
Printer.FontName = "Tahoma"
Printer.FontSize = 12
Printer.Print Label1.lbl
Printer.FontName = "Arial"
Printer.FontSize = 14
Printer.Print Text1(0).Text
Printer.EndDoc
Valora esta pregunta
0