¿Cómo puedo imprimir etiquetas directamente en Flexygo sin necesidad de ver la vista previa?

Public Shared Function PrintCrystal(ByVal Entity As EntityObject, ByRef Ret As ProcessHelper, aReportName As String) As Boolean

        Try

            Dim ReportDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
            ReportDoc = Entity.GetCrystalReportDocument(aReportName, "", FLEXYGO.Reporting.eReportModes.PDF, Nothing).ReportDoc

            Dim pdfPath As String = "c:\Temp\MyPdf.pdf"

            ReportDoc.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, pdfPath)

            'Usar esta linea si la impresora no es la defecto del servidor
            'Process.Start("c:\SumatraPDF\SumatraPDF.exe -silent -exit-on-print -print-to <printer-name> " & pdfPath)
            'Más documentación en: https://www.sumatrapdfreader.org/docs/Command-line-arguments
            Process.Start("c:\SumatraPDF\SumatraPDF.exe","-silent -exit-on-print -print-to-default " & pdfPath)

            Ret.Success = True


        Catch ex As Exception

            Ret.Success = False
            Ret.LastException = Entity.LastException
            Return False

        End Try

    End Function

0 Votos