1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Druckereinstellungen via VBA ändern

Discussion in 'Office-Programme' started by -Manne-, Jan 11, 2011.

Thread Status:
Not open for further replies.
  1. -Manne-

    -Manne- Byte

    Servus zusammen,
    ich habe folgendes Problem. Ich möchte ein Excel document automatisch zweimal ausdrucken. Nämlich eimal wie es an den Kunden rausgeht, auf "teurem" Firmenbriefpapier, und einmal auf normalem Papier für meine unterlagen.

    Der Drucker hat zwei Papierfächer, eines mit normal- u. eines mit Firmenbriefpapier.

    Da ich es nicht geschaft hab via VB die Druckeinstellungen zu ändern, hab ich einen 2ten Drucker erstellt und die Grundeinstellung verändert.
    Dieser Trick hat aber leider nicht funktioniert!


    Code:
    Application.ActivePrinter = "Develop - ineo+ 250 (Kopiergerät) Fach 1 auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:="Develop - ineo+ 250 (Kopiergerät) Fach 1 auf Ne05:", Collate:=True
        
Application.ActivePrinter = "Develop - ineo+ 250 (Kopiergerät) Fach 2 auf Ne04:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, ActivePrinter:="Develop - ineo+ 250 (Kopiergerät) Fach 2 auf Ne04:", Collate:=True

    Weiß jemand wie ich die Einstellungen des Druckers mit VB ändern kann?


    MfG
    Manfred
     
    -Manne-, Jan 11, 2011
    #1
Thread Status:
Not open for further replies.

Share This Page