---

Wie kann ich einen Windows Drucker mit z.B. einem Papierformat in A4 ermitteln und anzeigen lassen?

Ich möchte folgendes Makro, das ich hier im Forum gefunden habe, umbauen. Es soll das aktuelle Papierformat ermitteln und mir die entsprechenden Drucker zur Auswahl anzeigen. Anschließend möchte ich auf den von mir ausgewählten Drucker die Zeichnung ausdrucken.

Folgende Drucker stehen mir zur Verfügung:

Laserdrucker A4-A3
Farbdrucker A4-A3
Plotter A4-A0

Besten Dank im Voraus.

Georg

#############################

Public Sub FileSavePDF()

Dim oPrintMgr As DrawingPrintManager
For Each s In ThisApplication.ActiveDocument.Sheets
    s.Activate
    Start_Zeit = Timer
    Do While Timer < Start_Zeit + 2
    Loop
    Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
    oPrintMgr.NumberOfCopies = 1
    oPrintMgr.Printer = "FreePDF XP"
    PapierFormat = s.Size
    oPrintMgr.Orientation = kPortraitOrientation
    Select Case PapierFormat
        'Case 9993 'A0
            'oPrintMgr.PaperSize = kPaperSizeA0
        Case 9993 'A0
            oPrintMgr.PaperSize = kPaperSizeCustom
            oPrintMgr.PaperHeight = 841
            oPrintMgr.PaperWidth = 1189
        Case 9994 'A1
            oPrintMgr.PaperSize = kPaperSizeA1
        Case 9995 'A2
            oPrintMgr.PaperSize = kPaperSizeA2
        Case 9996 'A3
            oPrintMgr.PaperSize = kPaperSizeA3
        Case 9997 'A4
            oPrintMgr.PaperSize = kPaperSizeA4
    End Select
    Ausrichtung = s.Orientation
    Select Case Ausrichtung
        Case 10243 'Hochformat
            oPrintMgr.Orientation = kPortraitOrientation
        Case 10242 'Querformat
            oPrintMgr.Orientation = kLandscapeOrientation
    End Select
 
    Start_Zeit = Timer
    Do While Timer < Start_Zeit + 5
    Loop
    ThisApplication.ActiveView.WindowState = kMaximize
    oPrintMgr.SubmitPrint
    Start_Zeit = Timer
    Do While Timer < Start_Zeit + 5
    Loop
Next
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP