Druckmenü zeigt nur 8

Hallo Guten Tag,
ich mal aus der Recherche eine UF mit einem Druckmenü kopiert und wollte dies
verwenden.
Habe gerade festgestellt es geht nur bis Seite 8, krieg das leider nicht hin das bis zum Ende, in diesem Fall 18 Seiten, man die "Spin-Button" scrollen kann.
Vielleicht blickt jemand durch, hier das Makro:
Option Explicit
Dim bolStart As Boolean


Private Sub CommandButton13_Click()
' Drucken
If Me.OptionButton1 = True Then
Dim s
Dim z As Long
Application.ScreenUpdating = False
Range("A5").Select
z = Range("A5").End(xlDown).Row
ActiveSheet.Range(Cells(6, 1), Cells(z, 12)).Select
With ActiveSheet.PageSetup
.PrintArea = Range(Cells(6, 1), Cells(z, 12)).Address
.PrintTitleRows = "$3:$5"
.LeftFooter = "&8&P   von  &N"
.RightFooter = "&8 &F  / &A &D  &T"
.CenterHorizontally = True
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = False
End With
ActiveSheet.PrintOut Copies:=CLng(Me.SpinButton3.Value)
End If
If Me.OptionButton2 = True Then
ActiveSheet.PrintOut From:=CLng(Me.SpinButton1.Value), _
To:=CLng(Me.SpinButton2.Value), Copies:=CLng(Me.SpinButton3.Value)
End If
Application.ScreenUpdating = True
End Sub


Private Sub CommandButton1_Click()
End Sub


Private Sub CommandButton2_Click()
' Abbrechen
Unload Me
End Sub


Private Sub OptionButton1_Click()
Me.TextBox1.Value = "1"
Me.TextBox2.Value = "1"
End Sub


Private Sub OptionButton2_Click()
End Sub


Private Sub SpinButton1_Change()
If bolStart = False Then
If Me.SpinButton1.Value > Me.SpinButton2.Value Then Me.SpinButton1.Value = Me.SpinButton2.Value
Me.OptionButton2 = True
End If
Me.TextBox1 = Me.SpinButton1.Value
End Sub


Private Sub SpinButton2_Change()
If bolStart = False Then
If Me.SpinButton2.Value < Me.SpinButton1.Value Then Me.SpinButton2.Value = Me.SpinButton1.Value
Me.OptionButton2 = True
End If
Me.TextBox2 = Me.SpinButton2.Value
End Sub


Private Sub SpinButton3_Change()
Me.TextBox3 = Me.SpinButton3.Value
End Sub


Private Sub TextBox1_Change()
End Sub


Private Sub TextBox2_Change()
End Sub


Private Sub UserForm_Initialize()
Dim z
z = Range("A5").End(xlDown).Row
ActiveSheet.Range(Cells(6, 1), Cells(z, 12)).Select
With ActiveSheet.PageSetup
.PrintArea = Range(Cells(6, 1), Cells(z, 12)).Address
.PrintTitleRows = "$3:$5"
End With
Range("A5").Select
bolStart = True
Me.TextBox1 = 1
Me.TextBox2 = CLng(ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)"))
Me.SpinButton1.Min = 1
Me.SpinButton1.Max = CLng(ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)"))
Me.SpinButton2.Min = 1
Me.SpinButton2.Max = CLng(ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)"))
Me.SpinButton3.Value = 1
Me.OptionButton1 = True
bolStart = False
End Sub

Ich würde mich freuen, wenn jemand duchblickt...
mfg Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton5_Click() 'Sub Umlauf_Druck_Querformat() Dim s Dim z As Long Application.ScreenUpdating = False Range("A5").Select z = Range("A5").End(xlDown).Row ActiveSheet.Range(Cells(6, 1), Cells(z, 12)).Select With ActiveSheet.PageSetup .PrintArea = Range(Cells(6, 1), Cells(z, 12)).Address .PrintTitleRows = "$3:$5" .LeftFooter = "&8&P von &N" .RightFooter = "&8 &F / &A &D &T" .CenterHorizontally = True .Orientation = xlLandscape .FitToPagesWide = 1 .FitToPagesTall = False End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWindow.ScrollRow = 1 '8 Zeile ActiveWindow.ScrollColumn = 1 '2 Spalte Range("C4").Select Application.ScreenUpdating = True End Sub

Hallo Walter,
ich mische mich hier nochmal kurz mit folgendem Tip ein :
Die Anzahl der Seiten berechnet sich ja aus Anzahl der Seiten in der Höhe multipliziert mit Anzahl der Seiten in der Breite, also z.B. 3 x 2 Seiten = 6 Seiten,
Zwischen 2 Seiten in der Höhe und in der Breite befindet sich je 1 Seitenumbruch, also jeweils 1 Seitenumbruch weniger als es Seiten sind.
Aus dieser Tatsache ergibt sich, dass die Anzahl der Seiten das Produkt aus
(vertikalen Seitenumbrüchen + 1) * (horizontalen Seitenumbrüchen + 1) ist !
Oder als VBA-Syntax ausgedrückt :
MsgBox (activesheet.vpagebreaks.count+1) * (activesheet.hpagebreaks.count+1)
Gib doch diese Codezeile in einem Mini-SUB oder im VBA-Direktbereich ein und schau, welche Zahl ausgegeben wird.
Dieser Wert sollte identisch mit diesem Wert sein :
MsgBox CLng(ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)"))
Übrigens : Auch manuelle Seitenumbrüche werden in beiden Varianten mit ein berechnet !
Und beide Varianten berücksichtigen auch den festgelegten Druckbereich !
Ich habe übrigens Deine Dateien nicht ausprobiert, nehme also nicht Bezug darauf !
Liebe Grüße,
NoNet

Beliebteste Forumthreads (12 Monate)

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread