Druckseite einrichten
11.02.2014 11:50:10
Peter
Folgendes Problem beim Drucken möchte ich mit VBA lösen.
Über eine Userform hat der Benutzer drei Auswahlmöglichkeiten.
- Gesamte Tabelle drucken
- Tabelle ab Zeile X drucken
- Nur markierte Zeilen Drucken.
Mein Problem ist die gesamte Tabelle auf einem A4 Blatt in der Breite zu drucken.
Da meine Tabelle so Formatiert ist, das ich nicht alle Spalten auf einem A4 Blatt im Querformat bekomme.
Nun habe ich mir gedacht, dass ich in der Seitenumbruch Ansicht die Seitenumbrüche mit der Maus verschieben kann. So das eben alle Spalten auf einem A4 Blatt quer Ausgedruckt werden.
Leider konnte ich den mit dem Makrorekorder aufgezeichneten Code nicht einbinden.
Mit dem folgendem Code habe ich es mal probiert.
Dim intLeZeilAKTIV As Integer
intLeZeilAKTIV = Worksheets("AKTIV").Cells(Rows.Count, 1).End(xlUp).Row
strPrintSheet = "AKTIV"
With Worksheets("AKTIV").PageSetup
.PrintTitleRows = "$1:$1"
.PrintArea = "$A$1:$K$" & CStr(intLeZeilAKTIV)
.FitToPagesTall = 1
.FitToPagesWide = 1
.Zoom = False
.VPageBreaks(2).DragOff Direction:=xlToRight, RegionIndex:=1 hier bekomme ich die Fehlermeldung (Methode wird nicht unterstütz)
.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
End With
Für Eure Hilfe bin ich Euch sehr dankbar.
Gruß Peter