ev.HasMorePages = true

 



'Подпрограмма печати графики
    Private Sub PrintGraphic(ByVal sender As Object, _
      ByVal ev As PrintPageEventArgs)
        ' Создаем графику с помощью DrawImage
        ev.Graphics.DrawImage(Image.FromFile("C:\111\TEST001.TIF"), _
          ev.Graphics.RenderingOrigin)
        ' Указываем, что это последняя печатаемая страница
        ev.HasMorePages = False
    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'имя принтера -FAX
        PrintDocument1.PrinterSettings.PrinterName = "Fax"
        ' число копий=1
        PrintDocument1.PrinterSettings.Copies =  1 
        '       PrintDocument1.PrinterSettings.FromPage = 1
        '       PrintDocument1.PrinterSettings.ToPage = 2
        'создавать факс с разрешением 200х100
        PrintDocument1.DefaultPageSettings.PrinterResolution = _
        PrintDocument1.PrinterSettings.PrinterResolutions.Item( 5 )
        'печатаем в файл
        PrintDocument1.PrinterSettings.PrintToFile = True
        'имя файла такое-то
        PrintDocument1.PrinterSettings.PrintFileName = "c:\111\print.tif"
        AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintGraphic
        PrintDocument1.Print()   'печать графики
    End Sub