Microsoft Excel

Herbers Excel/VBA-Archiv

Ausdruck auf eine Seite

Betrifft: Ausdruck auf eine Seite
von: LarsLarsen
Geschrieben am: 14.04.2003 - 13:39:32

Guten Tag, Ich habe mal wieder ein Problem, daß mich zur Weißglut
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

  

Re: Ausdruck auf eine Seite
von: Jens Huthmann
Geschrieben am: 14.04.2003 - 13:44:26

Hallo Larsen,

füge vor den Zeilen ".FitTO....." eine Zeile mit ".Zoom=false" ein.

Gruß
Jens Huthmann
EDV-Schulungen
www.jhuthmann.de

  

Re: Ausdruck auf eine Seite
von: LarsLarsen
Geschrieben am: 14.04.2003 - 13:48:47

Vielen Dank...

Larsen

 

Beiträge aus den Excel-Beispielen zum Thema "Ausdruck auf eine Seite"