Herbers Excel-Forum - das Archiv

drucken Monat

Bild

Betrifft: drucken Monat
von: Günther Franzke

Geschrieben am: 31.12.2006 16:41:55
Hallo Excelfreunde
Habe für Arbeitsstunden jeweils eine TAbelle
gemacht (Januar, usw)
Jetzt brauche ich ein Macro , das den ganzen Monat ausdruckt.
Habe schon mal mit Druckbereich gemacht und querformat, weil ich auch Tabelle,
habe die hachformat gedruckt werden.
Ich habe ein Macro gemacht, aber ermacht nicht das der Ausdruck am
Papierformat ausgerichtet wird, ich möchte das der Ausdruck in Schwarz ausgedruckt wird,
weil die Tabelle in Farbe druckt, und nicht in schwarz.
Sub Drucken_Monat()
Range("R22").Select
ActiveSheet.PageSetup.Orientation = xlLandscape  'quer
ActiveSheet.PageSetup.PrintArea = "$B$1:$R$35"
ActiveSheet.PrintOut
Range("R22").Select
End Sub

Ich wünsche allen ein gutes und Gesundes neues Jahr 2007.
Mfg
Günther
Bild

Betrifft: AW: drucken Monat
von: fcs

Geschrieben am: 02.01.2007 13:30:04
Hallo Günther,
mit folgender Anpassung wird der Druckbereich des aktiven Blattes auf auf eine Seite A4-quer schwarz/weiß gedruckt.
Sub Makro1()
With ActiveSheet.PageSetup
.PrintArea = "$B$1:$R$35"
'        .CenterHorizontally = True
'        .CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.BlackAndWhite = True
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PrintOut
Range("R22").Select
End Sub

Gruß
Franz
Bild

Betrifft: AW: drucken Monat
von: Günther Franzke
Geschrieben am: 02.01.2007 16:13:43
Hallo Franz,
Danke für die Anwort,
klappt super.
Gruß
Günther
 Bild
Excel-Beispiele zum Thema "drucken Monat"
Mehrbereichsauswahl auf eine Seite drucken. Sichtbare Blätter drucken
Automatische Datumformatierung unterdrücken Bestätigung beim Speichern unterdrücken.
Kopfzeile in Buchform drucken In einem Dialog ausgewählte Spalten drucken
Codeblatt mit Rändern drucken Mehrfachauswahl im Hoch- und Querformat drucken
Tabellenblätter in umgekehrter Reihenfolge drucken Alle Dateien eines Verzeichnisses drucken