Visual Basic - RE:ayuda con imprimir

Life is soft - evento anual de software empresarial
 
Vista:

RE:ayuda con imprimir

Publicado por miguel (1042 intervenciones) el 03/06/2005 17:19:27
Mira puedes usar el objeto printer para poder imprimir este es el codigo que utilizarías para poder imprimir un grid.
Private Sub CMDIMPRIMIR_Click()
Dim i As Integer
Dim p As Integer
encab
With MSFsistema
For i = 0 To MSFsistema - 1
Printer.Print Tab(5); .TextMatrix(i, 0);
Printer.Print Tab(10); .TextMatrix(i, 1);
Printer.Print Tab(15); .TextMatrix(i, 2);
Printer.Print Tab(20); .TextMatrix(i, 3);
Printer.Print Tab(25); .TextMatrix(i, 4);
Printer.Print Tab(30); .TextMatrix(i, 5);
p = p + 1
If p > 60 Then
Printer.NewPage
encab
p = 0
End If
Next
Printer.EndDoc
End Sub
Private Sub encab()
hoja = hoja + 1
Printer.Font.Bold = True
Printer.Print Tab(30); "venta de pc"
Printer.Print Tab(25); "SISTEMAS"
Printer.Print Tab(60); "hoja #:";
Printer.Print Tab(75); hoja
Printer.Print Tab(5); ""
End Sub
Para poder imprimir textbox entre otras cosas con estilo te envío un ejemplo a tu correo...saludos!!!
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