ich habe folgendes Makro:
'----------------------------------------------------------------------
Private Sub CommandButton11_Click()
Application.ScreenUpdating = False
Dim z
ActiveSheet.Unprotect ("ee") 'schutz aufheben
z = Range("BK440").End(xlDown).Row
ActiveSheet.Range(Cells(z, 64), Cells(z, 68)).Select
ActiveSheet.PageSetup.PrintArea = Range(Cells(440, 64), Cells(z, 68)).Address
With ActiveSheet.PageSetup
.PrintTitleRows = "$433:$434"
.PrintTitleColumns = ""
.CenterHorizontally = True
.CenterVertically = False
'.Orientation = xlLandscape ' für Querformat
.Orientation = xlPortrait ' für Hochformat
.Zoom = 100
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ScreenUpdating = False
End Sub
Ich möchte gern über eine MSGBOX vor dem ausdrucken, das die Menge der Seitenzahlen angezeigt wird.
Vielleicht kann man auch die Menge, wieviel ich ausdrucken möchte, anzeigen
und auswählen ?
Gruß Walter