Visual Basic - imprimir una grilla

Life is soft - evento anual de software empresarial
 
Vista:

imprimir una grilla

Publicado por walter (3 intervenciones) el 04/01/2005 20:49:09
Una pregrunta sensilla....
Como se puede imprimir el contenido de una flexgrid
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:imprimir una grilla

Publicado por miguel (1042 intervenciones) el 04/01/2005 23:47:08
Puedes hacer algo sencillo con el Printer, ejemplo:
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 blocks"
Printer.Print Tab(25); "Blockreto del pacifico"
Printer.Print Tab(60); "hoja #:";
Printer.Print Tab(75); hoja
Printer.Print Tab(5); ""
End Sub
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