este es el script.
Código vb:
lo imprime, incluso las imágenes, pero solo la primera pagina.Ver original
Private Sub print1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles print1.PrintPage Dim c, cc, desx, desy, pag As Integer Dim Ini As CIniClass Dim newImage As Image Dim ulCorner As Point Dim urCorner As Point Dim llCorner As Point 'Dim TamaoPersonal As Printing.PaperSize 'Dim Ancho As Short 'Dim Alto As Short e.Graphics.PageUnit = GraphicsUnit.Millimeter 'Ancho = 210 'Alto = 297 'TamaoPersonal = New Printing.PaperSize("A4", Ancho, Alto) ' desx = 10 desy = 20 Dim destPara As Point() = {ulCorner, urCorner, llCorner} Ini = New CIniClass c = 0 cc = 0 e.Graphics.DrawString("Productos Faltantes de " & cboTMP.Text, New Font("Arial", 18, FontStyle.Regular), Brushes.Black, 5, 5) While Me.lvwFaltante.Items.Count > c newImage = Image.FromFile(Me.lvwFaltante.Items(c).SubItems(4).Text) ulCorner = New Point(1 + desx, desy) urCorner = New Point(30 + desx, desy) llCorner = New Point(1 + desx, desy + 26) destPara = {ulCorner, urCorner, llCorner} ' Draw image to screen. e.Graphics.DrawImage(newImage, destPara) e.Graphics.DrawString(Me.lvwFaltante.Items(c).SubItems(0).Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, desx + 32, desy) e.Graphics.DrawString(Me.lvwFaltante.Items(c).SubItems(1).Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, desx + 32, desy + 5) e.Graphics.DrawString(Me.lvwFaltante.Items(c).SubItems(3).Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, desx + 32, desy + 10) If (cc / 2) = Int((cc / 2)) Then desx = 95 Else desx = 10 desy = (desy + 28) End If If cc > 18 Then pag = pag + 1 e.Graphics.DrawString("Pagina: " & pag, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, desx, desy + 40) e.HasMorePages = True cc = 1 'desx = 10 'desy = 20 'e.HasMorePages = False Else e.HasMorePages = False cc = cc + 1 End If c = c + 1 End While 'e.HasMorePages = False End Sub
les captura de lo que imprime en archivo.

no se por que no salta la pagina!!!
Gracias