Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
        Dim f As New Font("Arial", 24, FontStyle.Regular)
        e.Graphics.PageUnit = GraphicsUnit.Millimeter
        e.Graphics.DrawString("Hallo VB", f, New SolidBrush(Color.Black), 30, _
          110)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.PrintDocument1.DefaultPageSettings.Landscape = True
        Me.PrintPreviewDialog1.WindowState = FormWindowState.Maximized
        Me.PrintPreviewDialog1.ShowDialog()
    End Sub
End Class