Dim oAusgabe As Object
 
bPreview = (TypeOf oAusgabe Is Form)
 
If bPreview Then
 Set prnObject = oAusgabe.Picture2
Else
 Set prnObject = Printer
End If
 
prnObject.Print strText
 
If bPreview Then
 oAusgabe.ShowPreview
Else
 prnObject.EndDoc
End If