Imprimir el contenido de una grilla
Publicado por Felipe (45 intervenciones) el 24/06/2004 23:05:40
Como puedo imprimirlo tal cual esta, sin usar un "datasource", ya que la grilla la lleno con textbox....He probado el objeto "Printer", pero me imprime solo cosas raras, caracteres que no tienen relacion con los datos de la grilla, puros garabatos. Este es mi codigo:
Dim y As Integer
y = 40
fila = 1
For i = 1 To Grilla_Inv.Rows - 1
Printer.CurrentX = 20
Printer.CurrentY = y
Printer.Print Grilla_Inv.TextMatrix(i, 1)
Printer.CurrentX = 50
Printer.CurrentY = y
Printer.Print Grilla_Inv.TextMatrix(i, 2)
y = y + 5
Next
Printer.EndDoc
Gracias.
Dim y As Integer
y = 40
fila = 1
For i = 1 To Grilla_Inv.Rows - 1
Printer.CurrentX = 20
Printer.CurrentY = y
Printer.Print Grilla_Inv.TextMatrix(i, 1)
Printer.CurrentX = 50
Printer.CurrentY = y
Printer.Print Grilla_Inv.TextMatrix(i, 2)
y = y + 5
Next
Printer.EndDoc
Gracias.
Valora esta pregunta


0