Imprimir ListView
Publicado por Joe Peña (5 intervenciones) el 05/04/2002 13:31:11
Lo que hago para mandar a imprimir es lo siguiente:
Private Sub CmdImprimir_Click()
Dim IntControl As Integer
IntControl = 1
If MsgBox("Se imprimirán los registros, oprima SI para imprimir, NO para cancelar", vbYesNo + vbInFormation, "Imprimir") = vbYes Then
For i = 1 To LvwPrint.ListItems.Count - 1
Printer.Font.Name = "Verdana"
Printer.Font.Size = "8"
Printer.ScaleMode = 1 'Pulgada
Printer.CurrentY = 5
Printer.CurrentX = 10
Printer.Print , LvwPrint.ListItems(i)
For j = 1 To 3 '3 es el Numero de Columnas
Printer.Print , LvwPrint.ListItems(i).SubItems(j)
Next j
IntControl = IntControl + 1
If IntControl = 80 Then
Printer.NewPage
IntControl = 0
End If
Next i
Printer.EndDoc
End If
End Sub
Pero todo me sale en una misma línea, que es lo que me falta?
...::Joe::...
ICQ -> 118375919
Yahoo y Msn -> rsoft4d
-------------------------------------------------------
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--
--Quien nunca ha cometido un error nunca ha probado algo nuevo--
Private Sub CmdImprimir_Click()
Dim IntControl As Integer
IntControl = 1
If MsgBox("Se imprimirán los registros, oprima SI para imprimir, NO para cancelar", vbYesNo + vbInFormation, "Imprimir") = vbYes Then
For i = 1 To LvwPrint.ListItems.Count - 1
Printer.Font.Name = "Verdana"
Printer.Font.Size = "8"
Printer.ScaleMode = 1 'Pulgada
Printer.CurrentY = 5
Printer.CurrentX = 10
Printer.Print , LvwPrint.ListItems(i)
For j = 1 To 3 '3 es el Numero de Columnas
Printer.Print , LvwPrint.ListItems(i).SubItems(j)
Next j
IntControl = IntControl + 1
If IntControl = 80 Then
Printer.NewPage
IntControl = 0
End If
Next i
Printer.EndDoc
End If
End Sub
Pero todo me sale en una misma línea, que es lo que me falta?
...::Joe::...
ICQ -> 118375919
Yahoo y Msn -> rsoft4d
-------------------------------------------------------
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--
--Quien nunca ha cometido un error nunca ha probado algo nuevo--
Valora esta pregunta
0