Private Sub Form1_Load()
'Visar dialogen utskriftsformat för anvädaren
If PrintDialog1.ShowDialog = DialogResult.OK Then
PrintDocument1.Print() 'Skriver ut documentet
End If
End Sub

Private Sub PrintDocument1_PrintPage()
'I den här händelsen anger men vad som
'skall skrivas/ritas på pappret

'Skriver Hej i storlek 20 i svart färg
e.Graphics.DrawString("Hej", New Font("Arial", 20,_ FontStyle.Bold), New SolidBrush(Color.Black), 100, 100)

End Sub