<code>Private Sub Form_Load()
  With picPreview
    .Width = Printer.Width
    .Height = Printer.Height
  End With
End Sub</code>

<code>Dim bPreview As Boolean
Dim prnObject As Object
 
<font color=green>' Druckvorschau?</font>
bPreview = True
 
If bPreview Then
  Load frmPreview
  Set prnObject = frmPreview.picPreview
Else
  Set prnObject = Printer
End If
 
<font color=green>' Hier erfolgt der Ausdruck:
' Anstelle des Printer-Objekts verwenden wir prnObject, 
' das ja entweder das Printer-Objekt präsentiert (bPreview = False), 
' oder das Picture-Preview-Control (bPreview = True)
'
' Somit lässt sich ein und dieselbe Routine verwenden!</font>
 
With prnObject
  <font color=green>' Schriftart einstellen</font>
  .FontName = "Arial"
  .FonSize = 12
 
  <font color=green>' Text ausgeben</font>
  prnObject.Print "Dies ist ein Testtext"
 
  <font color=green>' usw.</font>
  ...
 
  <font color=green>' Ausdruck beendet</font>
  If bPreview Then
    <font color=green>' Druckvorschau anzeigen</font>
    frmPreview.Show 1
  Else
    .EndDoc
  End If
End With</code>