Druckseiten Anzahl
14.01.2013 18:44:02
Martin
nachdem ich mit eurer hilfe mein voriges problem loesen konnte, wuerde ich euch bitten, mir auch bei folgendem problem behilflich zu sein. und zwar moechte ich gerne, dass bevor ich das druckfenster angezeigt bekomme (das startet nachdem ich einen button druecke, es die gesamt seiten anzahl in einer msgbox anzeigt. in meinem aktuellen file waehren das zb 91 gedruckte seiten. im footer wird das richtig angezeigt.
meine msgbox zeigt mir nur 2!
kann ich die gesamtseitenanzahl &N vorher schon auslesen?
unten mein code, ist nur das letzte ende des gesamten codes
.
.
.
ActiveSheet.PageSetup.PrintArea = _
Range(Cells(1, 1), Cells(AnzahlEinträgeZeilen, AnzahlEinträgeSpalten)).Address
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.CenterHeader = "XXXXXXXXXXXXXXXXXXX"
.LeftFooter = "&""-,Fett""&8 &A" & Chr(10) & "XXXXXXXX"
'CenterFooter = "Printed by: " & Environ("username") 'Das waere mit Username Zusatz, so wie der User am Computer angemeldet ist
.CenterFooter = "TOP SECRET!"
.RightFooter = "&8&D - &t" & Chr(10) & "Page &P of &N"
.PrintErrors = xlPrintErrorsDisplayed
End With
Dim Seitenzahl As Integer
Seitenanzahl = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
MsgBox Seitenanzahl
Application.ScreenUpdating = True
Application.Dialogs(xlDialogPrint).Show
Rows("1:1").EntireRow.HorizontalAlignment = xlLeft
'Strichlierungen entfernen
Rows("1:1").Borders(xlEdgeBottom).LineStyle = xlNone
Cells.EntireColumn.Borders(xlEdgeTop).LineStyle = xlNone
Cells.EntireColumn.Borders(xlInsideVertical).LineStyle = xlNone
Cells.EntireColumn.Borders(xlInsideHorizontal).LineStyle = xlNone
Cells.EntireColumn.Borders(xlEdgeRight).LineStyle = xlNone
Cells.EntireColumn.Borders(xlEdgeLeft).LineStyle = xlNone