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 Ute

Folgendes 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