Sub PrintAnywhere (Src As Object, Dest As Object)
Dest.PaintPicture Src.Picture, Dest.Width / 2, _
Dest.Height / 2
If Dest Is Printer Then
Printer.EndDoc
End If
End Sub
Sub PrintOrNot()
Printer.Print "This is the first line to _
illustrate KillDoc method"
Printer.Print "This is the second line to _
illustrate KillDoc method"
Printer.Print "This is the third line to _
illustrate KillDoc method"
If vbNo = MsgBox("Print this fine document?", _
vbYesNo) Then
Printer.KillDoc
Else
Printer.EndDoc
End If
End Sub