unger. Seitenzahl per VBA bei Seriendruck
24.01.2008 19:50:44
Wolfgang
ich habe ein Makro mit dem ich eine Vorlage in Serie immer neu beschreibe und ausdrucke bzw druckvorschau durchführe. Dieses Makro ist nochmal unterteilt in geraden Seiten Drucken (Druckvorschau )und ungeraden Drucken (Druckvorschau )
Was auch funktioniert.
Nur hätte ich noch eine Schleife in diesem Makro das die Seitenzahl in der Mitte der Fußzeile hochzählt.
Für das Makro für die Geraden Seiten habe ich das hinbekommen.
Nur für die ungeraden Seitenzahl will es nicht klappen.
ich hoffe mir kann da jemand helfen.
Anbei das Makro für die ungeraden Seiten in die noch die Schleif Seitenzahl eingebaut werden müßte.
Sub DruckVorschauStrassenUngerade()
Dim U As Worksheet, wks4 As Worksheet
Dim i%
'On Error GoTo Fehler
Set U = Worksheets("FilterDrucken")
Set wks4 = Worksheets("Filter")
Call SchutzAuf
wks3.Range("F2") = ""
If wks4.Range("C2") = "" Then
MsgBox (" Es wurde kein Datensatz gefiltert?"), vbInformation, "Info"
Exit Sub
End If
If MsgBox(" Möchten Sie die gefilterten Strassen als Druckvorschau ansehen ?", vbQuestion + _
vbYesNo, " Druckvorschau der ungeraden Seitenzahlen") = vbYes Then
With wks3.PageSetup
.Zoom = 92
' .Zoom = False
' .FitToPagesTall = 1
' .FitToPagesWide = 1
''.LeftFooter = "&P" ' + 2
End With
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
i = 2
Do While Not IsEmpty(wks4.Cells(i, 3))
wks3.Range("F2") = wks4.Cells(i, 3)
wks3.Range("B36").Value = wks3.Range("B36").Value + 2
U.PrintPreview
'U.PrintOut
i = i + 8
Loop
wks3.Range("F2") = ""
'Call Schutz
Exit Sub
End If
End Sub
Danke Euch
Gruß Wolfgang