bayağı bir uğraştım ama en sonunda yapabildim. Benim gibi visual basic net ile ikinci sayfaya çıktı alma, resim veya yazı yazdırma da sorun yaşayan arkadaşlar, boş bir form açarak, forma button1, printdocument1 ve PrintPreviewDialog1 sürüklesin, kod bölümüne de aşağıdaki kodları yazarsa olayı çözer....
Dim pagenumber As Integer = 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pagenumber = 1
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
Handles PrintDocument1.PrintPage
Dim peopleNames As New List(Of String)({"Elizabeth", "David", "George"})
Dim personName As String
If pagenumber <= peopleNames.Count Then
personName = peopleNames(pagenumber - 1)
Dim pFont As Font
pFont = New Font("Verdana", 30)
e.Graphics.DrawString(personName, pFont, Brushes.Black, 40, 15)
e.HasMorePages = True
pagenumber += 1
Exit Sub
End If
e.HasMorePages = False
End Sub