GELÖST Excel 2007, Drucken automatisieren möglich?

[sawosch85]

Sorry das der Titel etwas schwammig ist, mir ist nichts konkreteres dabei eingefallen.

Ich wollte eigentlich nur mal in Erfahrung bringen ob es mit Excel möglich ist das drucken der einzelnen Reiter zu automatisieren, wenn ja, wie?

Folgendes: Ich möchte das jedesmal wenn ich aus diesem bestimmten Dokument drucke er mir den Reiter 1 1x ausdruckt und den Reiter 2 2x ausdruckt.

Nur ob das möglich ist weiss ich nicht

Merci
MFG Sandro

 

[AlienJoker]

Du kannst dem Ding natürlich makrogesteuert das ganze hinter nen button legen. Ob sowas mit dem Rekorder klappt, weiß ich nicht.

 

[WillyV]

Doch das geht. Das Makro ist auf die Arbeitsmappe beschränkt, nicht auf die einzelnen Arbeitsblätter. Durch den Rekorder ist das auch ganz einfach zu machen.

 

[tomcat3]

Hättest du nur je ein (oder ein mehrfaches) der Tabellen gebraucht, kann man mit <Shift> und einem linksklick auf die benötigten Tabellen diese markieren und dann zusammen drucken.
Da du aber eine unterschiedliche Anzahl brauchst, wirst du vermutlich nicht um ein Makro herumkommen.
Ungefähr wie folgendes:

Sub Drucken()
    Sheets(1).Select 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets(2).Select 
    ActiveWindow.SelectedSheets.PrintOut Copies:=2
    Sheets(1).Select
End Sub

Exceltabelle ist im Anhang.

 

[sawosch85]

Du kannst dem Ding natürlich makrogesteuert das ganze hinter nen button legen. Ob sowas mit dem Rekorder klappt, weiß ich nicht.

Doch das geht. Das Makro ist auf die Arbeitsmappe beschränkt, nicht auf die einzelnen Arbeitsblätter. Durch den Rekorder ist das auch ganz einfach zu machen.

Danke euch, hat super funktioniert mit dem Aufzeichnen

Hättest du nur je ein (oder ein mehrfaches) der Tabellen gebraucht, kann man mit <Shift> und einem linksklick auf die benötigten Tabellen diese markieren und dann zusammen drucken.
Da du aber eine unterschiedliche Anzahl brauchst, wirst du vermutlich nicht um ein Makro herumkommen.
Ungefähr wie folgendes:

Sub Drucken()
    Sheets(1).Select 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets(2).Select 
    ActiveWindow.SelectedSheets.PrintOut Copies:=2
    Sheets(1).Select
End Sub

Exceltabelle ist im Anhang.

Ou, den Beitrag hab ich leider zu spät gesehen. Aber danke für die Mühe. Ich habs nun so gelöst:

Sub Druck()
'
' Druck Makro
'
' Tastenkombination: Strg+d
'
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    ActiveSheet.Next.Select
    ExecuteExcel4Macro "PRINT(1,,,2,,,,,,,,2,,,TRUE,,FALSE)"
    ActiveSheet.Previous.Select
End Sub

Allerdings ist dein Button doch noch sehr interessant...

 

[tomcat3]

Danke euch, hat super funktioniert mit dem Aufzeichnen



Ou, den Beitrag hab ich leider zu spät gesehen. Aber danke für die Mühe.

Hauptsache dein Problem ist gelöst.