Erweiterung von PageSetup
30.11.2014 19:45:15
PageSetup
benötige noch eine weitere Hilfe.
Zu u. a. Makros möchte ich .LeftFooter = "&A"
.CenterFooter = "Seite &P von &N"
.RightFooter = "&F" einfügen.
Sub DruckVorschau(strTabname$)
Dim MaxRow&
Dim sPrintAr$
UserForm1Druckvorschau.Hide
With Sheets(strTabname)
MaxRow = .Cells(.Rows.Count, 1).End(xlUp).Row
sPrintAr = .PageSetup.PrintArea
Application.DisplayAlerts = False
.PageSetup.PrintArea = Intersect(.Rows(1).Resize(MaxRow), .UsedRange).Address(0, 0)
Application.DisplayAlerts = True
Application.OnTime Now + TimeSerial(0, 0, 1), "'TabellenAnsicht """ & strTabname & """,""" & _
_
sPrintAr & """'"
'.PrintPreview
If .Range("A37").Value = 0 Then .Rows("37:41").Hidden = True
.PrintPreview
.Rows("37:41").Hidden = False
End With
End Sub
Sub TabellenAnsicht(strTabname$, sPrintAr$)
Application.DisplayAlerts = False
Sheets(strTabname).PageSetup.PrintArea = sPrintAr
Application.DisplayAlerts = True
'UserForm1Druckvorschau.Show
UserForm1Druckvorschau_Wertsetzen
End Sub
Problem es werden zwei unterschiedliche Arbeitsblätter angezeigt. Bei einem brauche ich die Fusszeile, beim anderen nicht.
Vielleicht könnt Ihr mir helfe.
Danke Gruss Peter