¿Cómo puedo imprimir etiquetas directamente en Flexygo sin necesidad de ver la vista previa?
Jose Vicente Bernad
empezó un tema
más de 1 año hace
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
Jose Vicente Bernad
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