online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon little-key vom 21.04.2022, 23:48 Options

Lösung

Makro für drucken

Hallo,

mein beliebtes Thema: Habe 55 Tabellenblätter

53 heißen KW1, KW2 ... KW53
1 heißt UR
1 AR


Benötige ein Code wenn ich eine KW.. öffne und diese drucken tue, soll grundsätzlich die Seite UR als 2. Seite mitgedruckt werden. Also immer, wenn ich eine KW-Seite drucke

und wenn möglich noch einen 2. Code:
Ein Blatt heißt AR und darf nur mit Passwortabfrage gedruckt werden


Antwort schreiben

Antwort 1 von Hajo_Zi vom 22.04.2022, 09:23 OptionsLösung

Lösung
Hallo Unbekannte(r),


Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Left(ActiveSheet.Name, 2) = "KW" Then
        Worksheets("UR").PrintOut
    ElseIf ActiveSheet.Name = "AR" Then
        ' Passwortabfrage per UserForm da sonst sichtbar
        'If Passwort = Falsch Then Cancel True
    End If
End Sub


Gruß Hajo

Ähnliche Themen

Drucken per VBA steuern
finger59  26.11.2008 - 64 Hits - 1 Antwort

Bestimmte Zeilen drucken
flash2back  10.01.2009 - 100 Hits - 7 Antworten

Makro im Makro deaktivieren ?
korfuweb  02.03.2009 - 178 Hits - 7 Antworten

Excel: 'Kopfzeilen' auf allen Zeilen drucken
Mikoop  17.03.2009 - 183 Hits - 2 Antworten

VB - Excel Makro, drucken unter Bedingung
Carteluno  19.05.2009 - 578 Hits - 2 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026