Quiero hacer que se pueda imprimir desde un form con un command buton en otro form.
Trate primero cargando el segundo formulario, luego imprimiendo con print, y luego mostrando el form, pero no aparece nada, aca una parte del codigo a ver si me pueden dar una mano.
Código:
Dim Item As ListItem
Dim i As Integer, AnchoCol As Single, Espacio As Integer, x As Integer
Load Form8
AnchoCol = 0
'Recorremos desde la primer columna hasta la última para almacenar el ancho total
For i = 1 To ListView2.ColumnHeaders.Count
AnchoCol = AnchoCol + ListView2.ColumnHeaders(i).Width
Next
Espacio = 400
'Encabezado de ejemplo
Form8.Print " Ejemplo para imprimir un control ListView "
'Imprime un espacio en blanco
Form8.Print
'Imprime una línea
Form8.Line (Form8.CurrentX, Form8.CurrentY)-(Form8.ScaleWidth, Form8.CurrentY)
'Acá se imprimen los encabezados del ListView
For i = 1 To ListView2.ColumnHeaders.Count
Espacio = Espacio + CInt(ListView2.ColumnHeaders(i).Width * Form8.ScaleWidth / AnchoCol)
Form8.Print ListView2.ColumnHeaders(i).Text;
Form8.CurrentX = Espacio
Next