AW: Variabel Drucken
15.12.2008 22:22:00
Peter
Hallo Tino,
vielen Dank für deine schnelle Hilfe.
Habe noch was dazu geführt.
Weiss nich ob das alles nötig ist.
Private Sub CommandButton1_Click()
'Sub Ducken()
Dim Bereich As Range
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 85
.PrintErrors = xlPrintErrorsDisplayed
End With
Set Bereich = Range("B1", Cells(Cells(Rows.Count, 2).End(xlUp).Row, "L"))
With ActiveSheet
.PageSetup.PrintArea = Bereich.Address 'Druckbereich festlegen
.PrintOut
.PageSetup.PrintArea = "" 'Druckbereich wieder aufheben
End With
End Sub
Werde Morgen noch Testen.
Gruß Peter