Office: (Office 2010) Userform drucken

Hallo liebes Forum,

Ich möchte gern ein Userform, komplett ausdrucken können.
Dazu habe ich einen Code gefunden, der für mich soweit funktioniert.

Nun bräuchte ich noch die Möglichkeit, vor dem Ausdruck, einen Drucker auswählen zu können. Hierbei soll die Möglichkeit bestehen, zwischen Hoch- und Querformat wechseln zu können.

Ich möchte die Möglichkeit haben, entweder auf Papier oder als pdf drucken zu können.

Könnt ihr mir dabei, bitte behilflich sein.

Für eure Mühe, schon jetzt vielen dank im Voraus.


Gruß Jens

:)

 

Hallo Jens,

Code:

 

Hallo Uwe,

vielen Dank, für diesen Code.
Nun habe ich aber das Problem, das ich nicht weiß, an welcher Stelle ich diesen einsetzen muss, damit es funktioniert. Würdest du mir bitte dazu nochmal helfen?

Vielen Dank,
Gruß Jens

 

Hallo Jens,

ich dachte, dass ist klar: Genau da, wo Call .PrintOut steht/stand.

 

Hallo Uwe,

vielen dank für die schnelle Antwort.
Ich bin der absolute Laie, was die Programmierung mit VBA angeht, aber ich bin fasziniert, was damit alles möglich ist.
Die Stelle habe ich im Code gefunden und auch deinen Code entsprechend eingesetzt.
Leider bringt er mir jetzt einen Fehler in dieser Zeile:
strDrucker = Application.ActivePrinter (Variable nicht definiert)

Was muss ich noch anpassen, bzw. was habe ich noch falsch gemacht?

Vielen Dank, für die Nerven.

Gruß Jens

 

Hallo Jens,

am Beginn des Makros musst Du noch folgende Zeile einfügen: *wink.gif*
Code:

 

Hallo Uwe,

vielen Dank, für die Mühe!
es funktioniert jetzt so, wie ich es gern haben wollte.
Es ist immer wieder toll, wie uns "Unwissenden" hier im Forum geholfen wird.

Vielen Dank!


Gruß Jens