Artikeldatenblätter zum Dokument mit ausdrucken, Druckersteuerung
Ute Schneider
Hallo zusammen,unser Kunde möchte zu einer Auftragsbestätigung für alle enthaltenen Artikel automatisch ein Artikeldatenblatt mit ausgedruckt haben. Dass und wie das geht habe ich in einem anderen Topic entdeckt und auch erfolgreich austesten können.
'Print Document
If Engine.isDoublePass Then
Dim MyProcess As New Process
MyProcess.StartInfo.CreateNoWindow = False
MyProcess.StartInfo.Verb = "print"
MyProcess.StartInfo.FileName = "C:sbo_paths"&DocumentRow("ItemCode")&".pdf"
MyProcess.Start()
MyProcess.WaitForExit(10000)
MyProcess.CloseMainWindow()
MyProcess.Close()
End If
Ich habe dabei aber das Problem, dass die zusätzlichen Dokumente immer an den Standarddrucker gesendet werden. Kann ich es irgendwie ansteuern, dass ich den Drucker laut Layoutdefinition haben will?
vg
Ute Schneider
Krämer Anwendungssysteme
Philipp Knecht
Hi UteFolgendes Script kannst du im CommonScript unterbringen:
Dim strOldPrinter As String
Private Function SetPrinter(strPrinterName As String)
Dim WshNetwork As Object
Dim pd As New System.Drawing.Printing.PrintDocument
Try
strOldPrinter = pd.PrinterSettings.PrinterName
WshNetwork = Microsoft.VisualBasic.CreateObject("WScript.Network")
WshNetwork.SetDefaultPrinter(strPrinterName)
pd.PrinterSettings.PrinterName = strPrinterName
If pd.PrinterSettings.IsValid Then
Return True
Else
WshNetwork.SetDefaultPrinter(strOldPrinter)
Return False
End If
Catch exptd As Exception
WshNetwork.SetDefaultPrinter(strOldPrinter)
Return False
Finally
WshNetwork = Nothing
pd = Nothing
End Try
End Function
Private Function GetPrinter() As String
Dim pd As New System.Drawing.Printing.PrintDocument
strOldPrinter = pd.PrinterSettings.PrinterName
End Function
Dann kannst du dir im Dokument Generatescript initial mal den original Standarddrucker merken:
strOldPrinter = GetPrinter()
Und dann vor dem PDF Druck folgende Zeile:
SetPrinter("PrimoPDF")Und danach den Standarddrucker wieder umbiegen:
SetPrinter(strOldPrinter)
hth
Ute Schneider
Hallo Philipp,funktioniert prima - vielen Dank!
vg
Ute
0
Please sign in to leave a comment.
Comments
0 comments