Supportnet / Forum / Tabellenkalkulation

Hallo, wie kann man bei folgender Anweisung noch einbauen, daß man den Drucker auswählen kann, auf dem gedruckt werden soll? Private Sub CommandButton6_Click() ActiveSheet.PageSetup.PrintArea = "$A$10:$C$20" ActiveSheet.PrintOut End Sub DAnke

Hallo
Ein Tip: zeichne mittles Makrorecorder alls verfügbaren Drucker auf indem du der Reihe nach "Datei / Drucken" mit Druckerwahl ausführst.
Sieh dir den Makro an.
Mit einer Inputbox

 (DrNr =Inputbox "1=HP, 2=PS,...)

lass dir die Drucker eingeben (ev. Nummer)
und mit

 select case DrNr 
case "1" 
Application.ActivePrinter = "\XXHP LaserJet 1100 (MS) auf Ne02:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "\XXHP LaserJet 1100 (MS) auf Ne02:", Collate:=True
...
end select

lasse auswählen.

Gruß piano

_{Es wäre nett, wenn Du ein Feedback abgeben könntest,}
^{ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke für den Tipp. Das Problem ist, dass ich den Makro für eine DAtei brauche, die von ca. 60 Rechnern aus angesprochn wird, die haben natürlich alle unterschiedliche Drukcer...

Hi
Dann hinterleg alle Drucker in eine Tabelle, speichere sie in einem AddIn (oder für jeden PC eine eigene Personl.xls), hol sie beim Öffnen der Datei in eine String-Vaiable mit Trennzeichen ";" und bilde eine Gültigkeits-Liste.
Der Aufruf dann in etwa so:

 Dim dr1
dr1 = "\XXHP LaserJet 1100 (MS) auf Ne02:"
    Application.ActivePrinter = dr1

usw.

Alternativ kannst du auch den Windows-Druckdialog

  application.dialogs(xlDialogPrint).Show 

aufrufen.
Dies scheint mir in deinem Fall auch die bessere Lösung zu sein!

Gruß piano

_{Es wäre nett, wenn Du ein Feedback abgeben könntest,}
^{ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke, die letzte Anweisung ist das was ich gesucht habe!!!

• Excel Druck Makro mit bestimmten Drucker
• Drucker hinzufügen - Standard TCP/IP Port nicht zum auswählen
• makro suche