Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: telekomix am Dezember 17, 2015, 19:21:46 Nachmittag

Titel: Office 2013: Tabellenblatt an freigegebenen Drucker senden
Beitrag von: telekomix am Dezember 17, 2015, 19:21:46 Nachmittag

Hallo zusammen,
folgendes Problem unter Windows 7 Professional in der 32 Bit Version: es soll ein Tabellenblatt vom Rechner A an einen freigegebenen Drucker eines Rechners B im Netzwerk gesandt werden. Der Drucker wird in Excel 2013 als Drucker X an Rechner B im Status "Bereit" angezeigt, lässt sich aber nicht als Druckziel auswählen. Die Anzeige springt sofort auf den am Rechner A eingestellten Standarddrucker zurück. Hat jemand eine Idee, wie ich dieses Problem lösen kann?

Titel: Antw:Office 2013: Tabellenblatt an freigegebenen Drucker senden
Beitrag von: reign2503 am Dezember 26, 2015, 18:49:44 Nachmittag

Hi Telekomix,

ich habe zwar nicht genau die Lösung für dein Problem. Aber vielleicht kannst du damit was anfangen.
Das Makro fragt dich welchen Drucker du benutzen willst.

Code: XML

1. Sub Ausdrucken_abfragen()
2.    With Sheets("Tabelle 1")
3.       'Druckbereich festlegen:
4.       .PageSetup.PrintArea = "$A$1:$O$49" ´(<=Druckbereich falls nötig)
5.      Application.Dialogs(xlDialogPrinterSetup).Show
6.      'Drucken:
7.      antw = MsgBox("Soll der Wochenbericht gedruckt werden?", vbYesNo, "Wochenbericht Drucken?")
8.       If antw = vbNo Then
9.       End If
10.       If antw = vbYes Then
11.      .PrintOut ActivePrinter:=""
12.      'Druckbereich aufheben:
13.      .PageSetup.PrintArea = ""
14.      End If
15.      End With
16. End Sub