Druck Seite X von X in Zelle ausgeben, aber nicht
10.10.2018 14:29:28
X
ich habe folgendes Modul zur Ausgabe Seite von Seiten , jedoch soll nicht sofort der Druck beginnen sondern die Seitenansicht gestartet werden....der anschließende Druck dann manuell. da ich nicht sehr viel Ahnung von VBA habe bin ich auf Eure hilfe angewiesen. Danke und Gruß
Bernd
Sub xxx()
Dim n As Integer, i As Integer
ActiveWindow.View = xlPageBreakPreview
n = ActiveSheet.HPageBreaks.Count + 1
For i = 1 To n
[o6] = i & " von " & n
ActiveSheet.PrintOut from:=i, To:=i
Next i
ActiveWindow.View = xlNormalView
End Sub