Kod:
Private Sub D1Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D1Button3.Click
Dim Yazi As New PrintDocument
Dim Dokuman As New PrintPreviewDialog
AddHandler Yazi.PrintPage, AddressOf Ciz
Dokuman.Document = Yazi
Dokuman.ShowDialog()
End Sub