Druckbereich auf ausgeblendetem Blatt

[C598]

Moin liebes Forum,

ich habe in meiner Tabelle in Tabellenblatt, welches ausgeblendet ist, da hier keine Änderungen vorgenommen werden sollen, da hier lediglich Daten übernommen werden. 

Per VBA würde ich gerne die Range von A2 bis G100 auf Tabellenblatt "Test" auswählen, und die klassische Druckansicht mittels "Application.Dialogs(xlDialogPrint).Show" öffnen, um dann den Drucker auswählen und anschließend drucken zu können. Allerdings scheitere ich aktuell daran, dass ich die Auswahl aufgrund des ausgeblendeten Tabellenblattes nicht vornehmen kann. 

Gibt es hierfür eine gute Lösung?

VG

C

[Stoffo]

Moin,

schreibe dir doch ein Makro welches den Reiter einblendet und nach erfolgtem Druck wieder ausblendet. So würdest Du die Problematik einfach umgehen. Alternativ könnte der Reiter mit Select Case das Tabellenblatt ansteuern und dann sollte ein Druck möglich sein, ist allerdings ungetestet.

[C598]

Moin Stoffo,

die Einblendung und anschließende Ausblendung habe ich als Workaround schon getestet, funktioniert soweit auch. Ich dachte allerdings vielleicht frage ich vorher noch einmal im Forum nach, ob es einen anderen Weg gibt! ;)



VG

C

[Kuwer]

Hallo,

hast Du es denn schon geschafft, das ausgeblendete Blatt, unabhängig vom eingestellten Druckbereich, zu drucken?

Gruß Uwe

[C598]

Hallo Kuwer,

nein, bisher habe ich es nur geschafft das Blatt einzublenden, den Druckbereich zu drucken und das Blatt wieder auszublenden!

[schauan]

Hallöchen,

ich denke, wenn Du das Blatt nicht einblenden willst, musst Du die notwendigen Daten auf ein eingeblendetes Blatt holen und dann drucken.
Du kannst auch den Druckbereich des ausgeblendeten Blattes als Bild kopieren (CopyPicture) und in ein eingeblendetes Blatt einfügen und das dann drucken.

Allerdings scheitere ich aktuell daran, dass ich die Auswahl aufgrund des ausgeblendeten Tabellenblattes nicht vornehmen kann.

Das würde ich jetzt mal nicht unterschreiben. Eine Druckerauswahl bekommst Du sowohl mit
Application.Dialogs(xlDialogPrint).Show
als auch mit
Application.Dialogs(xlDialogPrinterSetup).Show
angezeigt. Zumindest in 365, 2016 habe ich gerade nicht zur Hand.