Seitenumbruch mehrere Seiten drucken vba

Hallo Ich habe einen Datensatz in Blatt1 A1: L110, und ich versuche, es auf zwei Seiten zu drucken (jede Seite 55 Zeilen). Aber mit dem folgenden Code zeigt es nicht die Spalte L. Gibt es einen Vorschlag, das Problem zu überwinden. Vielen Dank.Seitenumbruch mehrere Seiten drucken vba

`Sub PrintPage() 
'Worksheets("Sheet1").Activate 

ActiveSheet.ResetAllPageBreaks 
ActiveSheet.PageSetup.Zoom = 80 
Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$L$110" 
Worksheets("Sheet1").Rows(55).PageBreak = xlPageBreakManual 
Worksheets("Sheet1").Range("A1:L110").PrintOut Copies:=1, Preview:=True, ActivePrinter:=" ", Collate:=True 

End Sub`

Quelle

2016-07-26 Kuma

Sie 'ActiveSheet' - die nicht' Sheet1' sein kann. Ersetzen Sie "ActiveSheet" durch "Worksheets (" Sheet1 ")" und sehen Sie, was passiert. Versuchen Sie auch, diese Zeile 'Worksheets (" Sheet1 ") hinzuzufügen. VPageBreaks (1) .DragOff-Richtung: = xlToRight, RegionsIndex: = 1 'vor der' PrintOut'-Zeile. –

@ Scott, Es gibt die gleiche Ausgabe. auch Fehler an der VpageBreak..line – Kuma

@ Scott Ich fügte hinzu, dann funktioniert es gut. '.Zoom = Falsch .FitToPagesWide = 1 .FitToPagesTall = Falsch Ende mit' – Kuma

Mit folgender Änderung habe ich die gewünschte Ausgabe erhalten. Danke euch allen.

`Sub PrintPage() 
'Worksheets("Sheet1").ActivateActiveSheet.ResetAllPageBreaks 
Worksheets("Sheet1").PageSetup.Zoom = 80 
Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$L$110" 
With Sheets("Sheet1").PageSetup 
    .Zoom = False 
    .FitToPagesWide = 1 
    .FitToPagesTall = False 
End With 
Worksheets("Sheet1").Rows(55).PageBreak = xlPageBreakManual 
Worksheets("Sheet1").Range("A1:L110").PrintOut Copies:=1, Preview:=True, ActivePrinter:=" ", Collate:=True

End Sub`

Quelle

2016-07-26 15:13:21 Kuma

Seitenumbruch mehrere Seiten drucken vba

Antwort

Verwandte Themen