Herbers Excel-Forum - das Archiv
drucken Monat
- drucken Monat von Günther Franzke vom 31.12.2006 16:41:55
- AW: drucken Monat - von fcs am 02.01.2007 13:30:04
- AW: drucken Monat - von Günther Franzke am 02.01.2007 16:13:43
- AW: drucken Monat - von Günther Franzke am 02.01.2007 16:13:43
 |
Betrifft: drucken Monat
von: Günther Franzke
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 SubIch wünsche allen ein gutes und Gesundes neues Jahr 2007.
Mfg
Günther
 |
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
|
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
| |