Sub Example_PlotToDevice()
    'Этот пример посылает печать текущего рисунка на устройство, 
    'используемое по умолчанию для вашей системы.
    
    ThisDrawing.Plot.PlotToDevice
    
End Sub