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