Office: per Button automatischer druck mehrerer mappen

Hallo,

habe mehrere Arbeitsblätter in Mappen die sich alle in einem Ordner befinden. Möchte diese gerne mit einem Knopfdruck(erstelltem Button) automatisch an einem bestimmten drucker im Netz senden.

Ist das möglich? Wenn ja, wie muss ich vorgehen?

Danke im voraus!

mfg

matze

 

Hallo!

Was soll denn genau gedruckt werden?
Alle Blätter aller Mappen?
Oder gibt es da noch weitere Spezifikationen?

 

In den Mappen befindet sich jeweils nur ein Arbeitsblatt von der größe einer seite. 8 Mappen mit Seite immer "Tabelle1"

 

in diesem fall A1:H46

 

Hallo Matze,

ich hatte ein ähnlichen Problem...

Vertriebler sollen Daten eintragen (mit vielen Erklärungen zum Ausfüllen) aber ein anderes Blatt für die Unterschrift des Kunden ausdrucken.

Ich habe es mittels MAKRO gelöst.

Vorgehen für den Makro-Rekorder:

alle Befehle über die MENÜs heraussuchen (vorarbeit) z.b. wechsel auf das entsprechende Tabellenblatt, drucken, etc.

Makro-Rekorder starten - alle Befehle in der richtigen Reihenfolge durchführen - Makro-Rekorder stoppen - Makro bennnen
Button (Graphik o. Ä.) einfügen und mit dem Makro verbinden - fertig.

Vor Gebrauch auf jeden Fall testen

mfg
Christian

 

hast du dein Makro den noch? Kannst das vielleicht mal posten?

mfg

matze

 

Hallo Matze,

das Makro kann ich leider nicht posten, da auch interne Daten enthalten sind. Ist es denn so schwer, sich die shortscuts (ALT+P für Drucken, etc. ) herauszusuchen?

Vielleicht kann dir ja einer der Spezialisten hier ein Beispiel geben.

mfg
Christian

 

Habe gerade noch einmal gesucht...

Hier doch das Makro:

Code:

Sub print_printable()
'
' print_printable Macro
' Macro recorded 05.01.2007 by Christian Klein
'
' print out the hidden sheet 1 (printableCIS)
'
' a) unhide sheet1 (printableCIS)
' b) goto sheet1 cell A1 (PrintPage)
' c) print out actual sheet
' d) hide sheet
' e) goto sheet2 cell A12 (Start)
'

    Sheets("printableCIS").Visible = True
    Application.Goto Reference:="PrintPage"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.SelectedSheets.Visible = False
    Application.Goto Reference:="Start"

End Sub

Da ich die Erklärung schon angegeben habe, dürfte der Rest einfach sein... auf jedem Tabellenblatt eine Ansprungmarke setzen, beim MAKRO dann zur Zelle springen, Seite drucken, nächste Ansprungmarke, etc.

Viel Erfolg beim Umsetzen

Ach ja, wie gesagt, vorher alles per Menusteuerung (Shortcuts) ausprobiert und dann mit dem MAKRO-Rekorder aufgezeichnet. Anschließend ein wenig Nachbearbeitet (für die Optik).

mfg
Christian