bringt.
Ich möchte mit Hilfe eines Makros einen bestimmten Bereich drucken. Ich kriege es aber nicht hin, daß der Ausdruck auf einem Blatt erfolgt. Wenn ich es manuell mache, ist es jedoch kein Problem.
*****************************************************************
Sub drucken(ByVal bereich_name As String, ByVal format_ As String)
'Datum: 04.04.03
'Autor: AH
'Input: bereich_name Druckbereichname
' format_ zulässige Werte ("hoch" und "quer")
'Output: keinen
'Funktion: druckt einen bestimmten Bereich aus
Application.Goto Reference:=bereich_name
With ActiveSheet.PageSetup
.BlackAndWhite = True
.LeftMargin = Application.InchesToPoints(0.6)
.RightMargin = Application.InchesToPoints(0.3)
.TopMargin = Application.InchesToPoints(0.1)
.BottomMargin = Application.InchesToPoints(0.2)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PaperSize = xlPaperA4
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
If format_ = "quer" Then
ActiveSheet.PageSetup.Orientation = xlLandscape
Else
If format_ = "hoch" Then
ActiveSheet.PageSetup.Orientation = xlPortrait
End If
End If
Selection.PrintOut Copies:=1
End Sub
*****************************************************************
Vielen Dank für eventuelle Hilfe
Larsen