Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausdruck auf eine Seite

Ausdruck auf eine Seite
14.04.2003 13:39:32
LarsLarsen
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Ausdruck auf eine Seite
14.04.2003 13:44:26
Jens Huthmann

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
14.04.2003 13:48:47
LarsLarsen

Vielen Dank...

Larsen

Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige