BigLebensky
Lt. Commander
- Registriert
- Aug. 2006
- Beiträge
- 1.567
Liebe Kollegen,
ich bin am verzweifeln und finde nirgends eine Lösung.
Kurz erklärt um was es geht:
Habe für einen Kunden eine Excel Vorlage erstellt, in der es eine Kopfzeile mit Logo und Text sowie eine Fusszeile mit reinem Text gibt.
Jetzt habe ich selbige Vorlage auch drucken lassen (10.000 Stück), somit brauche ich eigentlich ja zwei Vorlagen, eine für zb PDFs mit Kopf- und Fusszeile und eine für den realen Druck ohne KuF.
Das entfernen per Makro ist kein Problem
Sub KopfUndFussZeilenLoeschen()
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ActiveWorkbook.Worksheets
With Tabellenblatt.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
Next Tabellenblatt
End Sub
Die Geschichte ist nur, dass ich nicht mehr "zurück" gehen kann, sprich selbst bei strg+z kommt die KuF nicht mehr.
Ich will ja eigentlich nur dass die KuF nicht mitgedruckt wird wenn ich auf einen normalen Drucker zugreife, bei PDF Druck soll dann alles mitgedruckt werden.
Ich kann mir beim besten Willen nicht vorstellen dass ich der Erste bin der sowas benötigt.
Umso ärgerlicher ist es dass hierzu NICHTS zu finden ist.
Für mich gehört das eigentlich schon zu einer normalen Anforderung an ein Programm dass sich Office schimpft.
Eventuell bin ich auch einfach zu blöd um die Option zu finden.
Ich hoffe sehr dass mir wer helfen kann.
Danke !
€dit:
Gut also ich habe nun alles mit Makros realisieren können, nur hat dies den Nachteil dass ich den Pfad für das Logo anpassen muss, wenn ein anderer Rechner benutzt wird.
Ausserden dauert es doch so ein paar Sekunden bis er über das Makro Fuss- und Kopfzeile einfügt (sind 12 Seiten).
Würde mich freuen wenn jemand eine schönere Lösung parat hat
ich bin am verzweifeln und finde nirgends eine Lösung.
Kurz erklärt um was es geht:
Habe für einen Kunden eine Excel Vorlage erstellt, in der es eine Kopfzeile mit Logo und Text sowie eine Fusszeile mit reinem Text gibt.
Jetzt habe ich selbige Vorlage auch drucken lassen (10.000 Stück), somit brauche ich eigentlich ja zwei Vorlagen, eine für zb PDFs mit Kopf- und Fusszeile und eine für den realen Druck ohne KuF.
Das entfernen per Makro ist kein Problem
Sub KopfUndFussZeilenLoeschen()
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ActiveWorkbook.Worksheets
With Tabellenblatt.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
Next Tabellenblatt
End Sub
Die Geschichte ist nur, dass ich nicht mehr "zurück" gehen kann, sprich selbst bei strg+z kommt die KuF nicht mehr.
Ich will ja eigentlich nur dass die KuF nicht mitgedruckt wird wenn ich auf einen normalen Drucker zugreife, bei PDF Druck soll dann alles mitgedruckt werden.
Ich kann mir beim besten Willen nicht vorstellen dass ich der Erste bin der sowas benötigt.
Umso ärgerlicher ist es dass hierzu NICHTS zu finden ist.
Für mich gehört das eigentlich schon zu einer normalen Anforderung an ein Programm dass sich Office schimpft.
Eventuell bin ich auch einfach zu blöd um die Option zu finden.
Ich hoffe sehr dass mir wer helfen kann.
Danke !
€dit:
Gut also ich habe nun alles mit Makros realisieren können, nur hat dies den Nachteil dass ich den Pfad für das Logo anpassen muss, wenn ein anderer Rechner benutzt wird.
Ausserden dauert es doch so ein paar Sekunden bis er über das Makro Fuss- und Kopfzeile einfügt (sind 12 Seiten).
Würde mich freuen wenn jemand eine schönere Lösung parat hat
Zuletzt bearbeitet: