Visual Basic - Necesito ayuda para imprimir!!!!!

Life is soft - evento anual de software empresarial
 
Vista:

Necesito ayuda para imprimir!!!!!

Publicado por Cecilia (2 intervenciones) el 27/09/2004 03:34:11
Hola, necesito ayuda para imprimir el contenido de las cajas de texto, label, comobobox, etc. de un formulario. Se que se utiliza el objeto printer pero no se como darle las coordenadas para que me salga algo presentable y centrado. Agredezco cualquier ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Necesito ayuda para imprimir!!!!!

Publicado por Gabriel (19 intervenciones) el 27/09/2004 06:01:32
Si Deseas Imprimir El Contenido De Un Formulario Tal Como Esta En Pantalla, Puedes Usar El Metodo PrintForm, Que Imprime El Contenido De Un Objeto Tal Como Esta.
Ejemplo
formulario.PrintForm 'Imprime El Formulario Con Su Contenido
datagrid.PrintForm 'Imprime El DataGrid Con Su Contenido

Para imprimir información desde la aplicación con PrintForm, primero debes resentar dicha información En La Pantalla.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Necesito ayuda para imprimir!!!!!

Publicado por Ariel (94 intervenciones) el 27/09/2004 08:15:30
Hola Gabriel

aqui hay un poco de lo que necesitas.
espero que te sirva

'-----------------------------------
Printer.FontName = "Courier New"
Printer.ScaleMode = vbCentimeters ' la escala q se utilizara en este caso cm, si quieres trabajar con otra escala consulta la MSDN.

Printer.CurrentY = 1 '<----- Posicion Y
Printer.CurrentX = 7 '<------ Posicion X
Printer.Font.Size = 14
Printer.Font.Underline = True
Printer.Print Label1.Caption
Printer.Font.Underline = False
Printer.Font.Size = 12

Printer.CurrentY = 3
Printer.CurrentX = 4
Printer.Print "Datos de La Consulta"

Printer.CurrentY = 4.5
Printer.CurrentX = 3
Printer.Print Label3(0).Caption & " " & Label3(1).Caption;
Printer.CurrentX = 13
Printer.Print Label3(2).Caption & " " & Label3(3).Caption

Printer.CurrentY = 19
Printer.CurrentX = 2: Printer.Print Label6(0).Caption;
Printer.CurrentX = 7: Printer.Print Label6(1).Caption

Printer.EndDoc
'-----------------------------------------

Suerte

Ariel......
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Necesito ayuda para imprimir!!!!!

Publicado por Cecilia (2 intervenciones) el 28/09/2004 04:30:12
gracias por la ayuda, luego les informo si me ha resultado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar