Solid Edge Draft Type Library > DraftDocument Object : PrintOut Method |
Visual Basic |
---|
Public Sub PrintOut( _ Optional ByVal Printer As Variant, _ Optional ByVal NumCopies As Variant, _ Optional ByVal Orientation As Variant, _ Optional ByVal PaperSize As Variant, _ Optional ByVal Scale As Variant, _ Optional ByVal PrintToFile As Variant, _ Optional ByVal OutputFileName As Variant, _ Optional ByVal PrintRange As Variant, _ Optional ByVal Sheets As Variant, _ Optional ByVal ColorAsBlack As Variant, _ Optional ByVal Collate As Variant _ ) |
Private Sub PrintOut_Click(sender As Object, e As EventArgs) Handles PrintOut.Click Dim objApplication As SolidEdgeFramework.Application = Nothing Dim objDraftDoc As SolidEdgeDraft.DraftDocument Try objApplication = Marshal.GetActiveObject("SolidEdge.Application") objDraftDoc = objApplication.ActiveDocument 'igPrintCurrentDisplay Call objDraftDoc.PrintOut("Microsoft XPS Document Writer", 1, 2, , , True, "c:\test.xps") Catch ex As Exception MsgBox(ex.ToString) Clipboard.SetText(ex.ToString) End Try End Sub