pdf-Druck laufende Seitennummerierung umgehen
Sandra
Derzeit nutze ich, folgendes Makro:
Sub PDF_Print_Sheet()
'Modifiziert
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
With wks
.Select
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Environ("userprofile") & "\Desktop\" & .Name & ".pdf", Quality:=xlQualityStandard, _
_
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
Next wks
End Sub
Das läuft fast super - bei den meisten jedenfalls.Das Problem soll aber (ersteinmal :-) ) nicht Euers sein.
Ich muss mir jetzt noch ein Makro zusammen bauen, bei dem ich Eure Hilfe benötige. Es funktioniert scheinbar nur über diesen Weg der VBA-Programmierung.
Ich habe eine Exceldatei mit vielen Tabellenblättern. Nun möchte ich alle markierten Tabellenblätter als pdf drucken - von mir aus auch speichern als pdf. Dabei soll aber die Seitennummerierungd er Tabellenblätter beibehalten werden, die mit den Variablen [Seite] & [Seiten] (also: Seite [Seite] & con Seite [Seiten]) festgelegt sind. Habe ich im TB1 3 Seiten (1 von 3, 2 von 3 und 3 von 3) und im TB2 2 Seiten (1 von 2 und 2 von 2), dann möchte ich diese Seitenzahlen auch im pdf-Ausdruck wiederfinden und nicht 1 von 5, 2 von 5 etc.
Geht das irgendwie? Und wenn ja, wie?
P. s. Das Makro muss für verschiedene Betriebssysteme (XP, Vista und 7) funktionieren (daher auch die Ausführung: Environ("userprofile") & "\Desktop\" & .Name & ".pdf" beim o. g. Makro) und ggfs. auch mit unterschiedlichen Adobe-Ausgaben 8.0, 9.0 etc. Die Excelversion ist bei allen Exdel 2007.
Ich danke Euch herzlichst
Eure Sandra!