Office: Ausgeblendetes Tabellenblatt über eine Schaltfläche drucken

Hallo,

Ich hab eine Frage an euch:

ich hab eine Exceldatei mit 8 Tabellenblätter, davon ist ein Tabellenblatt ausgeblendet. In diesem werden Daten der anderen Tabellen gesammelt.
Nun möchte ich aber das ausgeblendete Tabellenblatt drucken, möchte es aber auch nicht jedesmal wieder einblenden, drucken und dann wieder ausblenden.

Jetzt meine Frage:
kann ich dies über einen Command Button lösen. Also wenn ich diese Schaltfläche drücke wird das Tabellenblatt 8 gedruckt.

Wenn ihr eine Lösung bzw. eine Denkanstoss hättet wäre toll.

 

Hallo,

du könntest folgendes versuchen:

Zeichne mit dem Makrorekorder die Aktion (Tabellenblatt einblenden - drucken - ausblenden) auf und weise diesem Code dann einem Button zu.

 

Hallo Peter,

danke für deine Antwort.

Ich habe in der Zwischenzeit gegooglt, aber nichts brauchbares gefunden. Dabei hab ich festgestellt, daß das Forum Office-Lösung nicht mehr verfügbar ist. Wollte da mit Suche auch dort mal nachsehen. Gib es das Forum noch oder ist es down?

Doch nun zu deiner Antwort.
Ich hab es bereits wie du vorgeschlagen hast mit dem Makrorecorder probiert. Aber es druckt mir immer das 1.Sheet aus.

Ich bin folgendermaßen vorgegangen.

1. Makro aufzeichnen
2. Tabelle einblenden
3. Tabelle drucken
4. Tabelle ausblenden
5. Makro einer Schaltfläche zugewiesen.

Problem ist nur, daß es mir die 1. Tabelle druckt statt der 8. Tabelle
und nach dem Druck die 1. Tabelle ausblendet und 8.Tabelle bleibt sichtbar.

Leider hab ich keinen Schimmer warum das so ist. Nachstehend hab ich mal den Makrocode eingefügt. Vielleicht kannst du da evtl. mal drüber sehen.

Private Sub CommandButton1_Click()

Sub Makro1()
'
' Makro1 Makro
' Makro am 27.03.2009 von HFr aufgezeichnet
'

'
Sheets("Proc-Order").Visible = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.Visible = False
Sheets("Linie 47").Select

End Sub

Die Schaltfläche ist auf dem Sheet "Linie 47"(1.Tabelle) gedruckt werden soll aber "Proc-Order"(8.Tabelle), die dann wieder ausgeblendet werden soll und wieder zur "Linie 47" zurückzukehren.

 

Hallo,

das Forum gibt es noch aber ist momentan vermutlich down.

Ich habe dem Betreiber zwischenzeitlich darüber informiert.

(Nachtrag: Office-Loesung.de ist wieder online).

Zu deinem Code:

ändere mal

ActiveWindow.SelectedSheets.PrintOut

in

Sheets("Proc-Order").PrintOut

 

Hallo Peter,

juhuuu es klappt.

Ich mußte nur noch deine Änderung übernehmen und das Ganze war okay.

Das Ganze sieht jetzt so aus und erfüllt seinen Zweck.

Private Sub CommandButton1_Click()

'
' Makro Proc-Order drucken
' Makro am 27.03.2009 von HFr aufgezeichnet
'

'
Sheets("Proc-Order").Visible = True
Sheets("Proc-Order").PrintOut Copies:=1, Collate:=True
Sheets("Proc-Order").Visible = False
Sheets("Linie 47").Select

End Sub


Wie immer kann ich nur auf diesem Weg Danke sagen.
Ein großes Lob an Dich und deine Kollegen für die rasche und tolle Hilfe und vorallendingen man kann sich auf euch verlassen.




:lol:


PS: Office-Loesung ist wieder aktiv, denn wenn ich was suche dannn bei euch oder dort im Board.