Makro-Code für Druckbefehl
03.03.2006 13:25:55
Rico
ich habe untenstehendes Makro mit dem Makro-Recorder aufgenommen. Nun hab ich dazu folgende zwei Fragen:
1. den Befehl für das Scrollen muss ich ja nicht wirklich drin haben. Kann ich den Code wie folgt abändern ohne das was schiefläuft und die Kiste gleich draufgeht? :
ActiveWindow.Range("A1:E31").Select
...die erste Befehlszeile wäre dann ja weg und "ActiveWindow" gleich vor den Bereich gestellt... geht das so einfach?
2. Wenn ich das Makro ausführen lasse, druckt es das Blatt natürlich über den im BS vermerkten Standard-Drucker. Das ist allerdings störend und ich würde den Befehl eigentlich gern dort stehen lassen wo man den Drucker auswählen kann. Wenn ich aber mit dem Makrorekorder arbeite, kann ich die Aufzeichnung nicht anhalten wenn ich den dort steh wo ich den Drucker auswähle.
Gibts da einen Code dafür den ich ergänzend einsetzen kann?
Code von Makrorecorder aufgezeichnet:
Sub Montageauftrag_Druck()
ActiveWindow.SmallScroll Down:=-9
Range("A1:E31").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Besten Dank im Voraus für Eure stets super-Ideen und Hilfen.
Gruss Rico