Office: Drucken auf bestimmtem Drucker

Hi zusammen,

ich habe folgenden VBA Code:

Sub drucken()

With Selection
Range(.Offset(0, 22), .Offset(0, 21)).Select
End With

Selection.PrintOut Copies:=1, Collate:=True

End Sub


Dieser Code druckt mir nach betätigen einer Schaltfläche immer bestimmte benachbarte Zellen von der von mir in dem Moment ausgewählten.

Gibt es die Möglichkeit, hier noch mit einzubauen, dass das Ganze immer auf einem bestimmten Drucker gedruckt wird und im Querformat?

Liebe Grüße

:)

 

Moin!
Range.PrintOut-Methode
Dort den Parameter ActivePrinter:= nutzen.

Gruß Ralf

 

hi, sry das verstehe ich nicht ganz. Meinst du das so?


Sub drucken()

With Selection
Range(.Offset(0, 22), .Offset(0, 21)).Select
End With

Selection.PrintOut Copies:=1, Collate:=True
ActivePrinter:="Name des Druckers"


End Sub

 

Benannte Parameter einer Methode müssen durch Kommata getrennt sein.
Den Printer-Namen bekommst Du heraus indem Du ihn einmalig aktivierst und im Direktfenster mittels
?ActivePrinter
abfragst. Du erhältst dann so etwas:
Kyocera FS-1220MFP GX (1) auf Ne03:
Das " auf NeXX:" kannst Du weglassen.

Gruß Ralf

 

Hi Ralf, danke dir vielmals,

Mein code habe ich nun anpassen können:

Sub barcodedrucken()

Application.DisplayAlerts = False
Worksheets("Import").Unprotect Password:="test"

With Selection
Range(.Offset(0, 21), .Offset(0, 20)).Select
End With


Selection.PrintOut Copies:=1, Collate:=True, Preview:=True, ActivePrinter:="Name des Druckers"



Worksheets("Import").Protect Password:="test"
Application.DisplayAlerts = True


MsgBox ("Barcode in Druckauftrag!")

End Sub


Nun nur noch die Frage, wie ich das ganze so mache, dass er mir das im Querformat druckt. Außerdem soll er mir nur die aktuelle Auswahl drucken, aber das macht er soweit ich weiß so oder so schon.

 

1. Du musst das Blatt nicht referenzieren, da Du ja die Selection auswertest
2. Du brauchst den Blattschutz nicht aufheben und setzen
3. Zur Ausrichtung kannst Du Dir ja mal ein Makro aufzeichnen
4. Schmeiße aus dem Code alle defaults raus

Dein Code mal aufs Wesentliche gekürzt:
Code:

Gruß Ralf

 

Hi Ralf, vielen Dank ich werde das gleich mal ausprobieren und dir Rückmeldung geben sobald wie möglich.

 

Da hat der Fehlerteufel zugeschlagen!
Es ist natürlich .PageSetup, nicht .PrintSetup …
Code:

 

HI Ralf,

bitte entschuldige die späte Antwort!

Du hast aber natürlich recht, einige Stellen in meinem Code waren natürlich überflüssig. Deiner klappt einwandfrei und obendrein deutlich schneller.

Vielen Dank!!! Toll, dass einem hier immer wieder so hervorragend geholfen wird.