Empezar un tema nuevo

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

Podéis usar SumatraPDF para realizar la impresión desde el servidor sin mostrar ninguna alerta al usuario, siempre y cuando el servidor tenga acceso por red a la impresora de etiquetas, el código sería algo así:

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


Iniciar sesión o Registrarse para publicar un comentario