Sub PrintProc( OutDevice as object )
    OutDevice.Print
    OutDevice.Line
 End Sub

印刷の時     Call PrintProc( Printer )
プレビュー   Call Printproc( Picture1 )

    If OutDevice Is Printer Then ....