Hola a todos ..... tengo una pequeña duda
Necesitaría imprimir los datos de un listado que tengo en un listview (controlados con el objeto ADO) sin la necesidad de recurrir a los REPORT de VB...
Sé que está el objeto PRINT, pero no sé exactamente cómo se utiliza y si me admitiría la cantidad de lineas que un listview posee

¿Alguien me dá algun consejillo?

GRACIAS de antemano ...gracias


Saludos

Hola, yo te aconsejo que uses el objeto print ya que lo manipulas a tu antojo. es muy sencillo de usar.

Printer.Print "Hola"
Printer.Endoc

no tenes ningun tipo de restringcion, la cantidad de lineas no son problema.
Las propiedades son simples, defini las posiciones de los objetos y listo.
Te aconsejo que utilices una letra Tipo Courier New porque todas las letras tienen el mismo ancho y asi podes encolumnar bien los datos.
Si decidis usar el Print y tenes problemas pa ordenar los datos avisame que te paso una funcion. Saludos.. EduEdited by: eeie74

El problema no es usar el objeto print, pues parece sencillo...
el problema es realizar el encabezado y pie de página del folio, así mismo como la estructuración de los datos ..

Me gustaría que me pasases la función ya que estoy un poco verde en este aspecto .....

Gracias eeie74

espero ayudar, yo imprimo de esta manera, si te das cuenta imprimo un encabezado y los datos de una grilla contralada a una maximo de 47 filas ...espero haber ayudado

Sub imprimirgrid()


Dim i As Integer
Dim p As Integer

Printer.CurrentX = 2500: Printer.CurrentY = 700
Printer.Font = "Times New Roman"
Printer.FontSize = 20
Printer.Print "ENTREGA DIARIA"

Printer.CurrentX = 1000: Printer.CurrentY = 1800
Printer.Font = "Courier New"
Printer.FontSize = 13
Printer.Print "RUT"

' Printer.CurrentX = 2500: Printer.CurrentY = 1300
' Printer.Font = "Courier New"
' Printer.FontSize = 13
' Printer.Print txtFecha.Text

Printer.CurrentX = 5000: Printer.CurrentY = 1800
Printer.Font = "Courier New"
Printer.FontSize = 13
Printer.Print "Sucursal"

'Printer.CurrentX = 2500: Printer.CurrentY = 1800
'Printer.Font = "Courier New"
'Printer.FontSize = 13
'Printer.Print "PC Nº"

Printer.CurrentX = 8200: Printer.CurrentY = 1800
Printer.Font = "Courier New"
Printer.FontSize = 13
Printer.Print "Metal"
Printer.Print

With mshEntrega
For i = 1 To .Rows - 1


Printer.Font = "Times New Roman"
Printer.FontSize = 10
Printer.Print Tab(10); .TextMatrix(i, 0); Tab(25); .TextMatrix(i, 1); Tab(65); .TextMatrix(i, 2); Tab(85); .TextMatrix(i, 3); Tab(105); .TextMatrix(i, 4);



p = p + 1


If p > 47 Then
Printer.NewPage
p = 0


End If


Next i


Printer.EndDoc


End With



End Sub

salu2 esta muy bien lo que dice el compañero kxito


o puedes utilizar lo siguente:





Dim O_Item As ListItem ' Variable para los items

private sub CmdPrint_Clic()

Imprimir_ListView ListView1

end sub



espero te sirva

salu2

Public Sub Imprimir_ListView(Listview As Listview)
Dim i As Integer, AnchoCol As Single, Espacio As Integer, x As Integer
AnchoCol = 0
'recorre desde la primer columna hasta la ultima para almacenar el ancho total
For i = 1 To Listview.ColumnHeaders.Count
AnchoCol = AnchoCol + Listview.ColumnHeaders(i).Width
Next
Espacio = 0
'Encabezado de Ejemplo
Printer.Print "Articulos en existencia"
Printer.Print
'Imprimir una linea
Printer.Line (Printer.CurrentX, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY)
With Listview
'Aca se imprimen los encabezados de linea
For i = 1 To .ColumnHeaders.Count
Espacio = Espacio + CInt(.ColumnHeaders(i).Width + Printer.ScaleWidth / AnchoCol)
Printer.Print Listview.ColumnHeaders(i).Text;
Printer.CurrentX = Espacio
Next
Printer.Print
'imprime una linea
Printer.Line (Printer.CurrentX, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY)
'imprime linea en blanco
Printer.Print
'Este bucle recorre los items y subitems del listview y los imprime
For i = 1 To .ListItems.Count
Espacio = 0
Set O_Item = .ListItems(i)
Printer.Print O_Item.Text;
'Recorre las columnas
For x = 1 To .ColumnHeaders.Count - 1
Espacio = Espacio + CInt(.ColumnHeaders(x).Width * Printer.ScaleWidth / AnchoCol)
Printer.CurrentX = Espacio
Printer.Print O_Item.SubItems(x);
Next
'otro espacio en blanco
Printer.Print
Next
End With
Printer.Print
'Imprime la linea final de la impresion
Printer.Line (Printer.CurrentX, Printer.CurrentY)-(Printer.ScaleWidth, Printer.CurrentY)
Printer.Print
'texto del pie
Printer.Print "Fin de la lista"
'Comenzamos la impresion
Printer.EndDoc
End Sub

creeo q lo puse mal jejeje...es dim, luego la funcion de imprimir, y al ultimo el codigo del boton

Gracias a los dos.
Voy a probar con ambas formas ..... y ya cuando consiga algo os lo digo

GRACIAS kxito
GRACIAS charl

Si queres imprimir el encabezado en todas las hojas con el codigo de kxito, podes poner la parte del encabezado en un funcion por ejemplo ImpEncabezado y en la parte del codigo despues del bucle cuando hace esta comparacion si el item es igual a 47 podes llamar a la funcion encabezado.
If p > 47 Then
Printer.NewPage
p = 0
call encabezado


End If

Me sirvió mejor el código de charl, se adaptaba mejor a mi código y lo manejo mejor .. pero seguiré modificando el código de kxito a ver si mejora el asunto

Ahora Gracias a los tres

sumo a NANO-ROSARIO a los agradecimientos......
Gracias