Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seiteneinrichtung Drucken

Seiteneinrichtung Drucken
08.06.2006 14:30:35
volker
Hai Leute,
hab gedacht dass bekomm ich noch alleine hin, aber:
Ich mochte in einem Workbook verschiedene Seiteneirichtungen anwenden, wie geht dass.
Ich hab bspw. ein Sheet "Sticker" hier soll die Seiteneinrichtung vom Labelprinter verwendet werden.
Danke Gruss volker

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seiteneinrichtung Drucken
08.06.2006 16:47:34
fcs
Hallo Volker,
die eigentlichen Seiteneinstellungen (Ränder, Fusszeilen etc.) kann man für jedes Tabellenblatt individuell machen.
Das Problem ist, das man vor dem Seiteneinrichten immer zuerst den jeweiligen Drucker auswählen muss.
Damit sichergestellt ist, dass vorm Drucken/Seitenvorschau immer der richtige Drucker gewählt wird, kann man z.Bsp. folgendes Makro unter "DieseArbeitsmappe" einfügen.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Abhängig vom Namen des aktiven Tabellenblatt wird der Drucker gewählt
Select Case ActiveSheet.Name
Case "Tabelle1"
'Drucken auf Farbdrucker (Netzwerk)
Application.ActivePrinter = "\\s050a1025\P000A6073 auf Ne03:"
Case "Sticker"
'Drucken auf Labeldrucker (Netzwerk)
Application.ActivePrinter = "\\s050a1025\P000A6084 auf Ne04:"
Case Else
'Drucken auf lokalem Drucker (Standarddrucker)
Application.ActivePrinter = "HP LaserJet 4 auf LPT1:"
End Select
End Sub

Die Drucker- und Tabellennamen muss du natürlich anpassen.
ggf. reichen auch die folgende beiden Makros mit entsprechenden Anpassungen für die Tabelle "Sticker":

Private Sub Worksheet_Activate()
'Drucken auf Labeldrucker (Netzwerk)
Application.ActivePrinter = "\\s050a1025\P000A6084 auf Ne04:"
End Sub
Private Sub Worksheet_Deactivate()
'Drucken auf lokalem Drucker (Standarddrucker)
Application.ActivePrinter = "HP LaserJet 4 auf LPT1:"
End Sub

Wenn man seine Datei so eingerichtet hat, dann kann man die Datei ggf. nicht mehr ohne Probleme an Kollegen verteilen, da diese evtl. die angegebenen Drucker am PC nicht verfügbar haben. Das Makro erzeugt dann eine Fehlermeldung.
mfg
Franz
Anzeige
Ja, perfekt das isses
08.06.2006 16:50:38
volker
Vielen Dank Gruss volker

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige