Office: Drucken über Makro

Hallo Forum,

ich habe eine Exceltabelle, in der ich via Buttons einen Teilbereich beliebig oft ausdrucken kann. Dies hat bisher auch alles gut funktioniert, da der Drucker lokal angeschlossen war.

Dank der modernen Technik ist der Drucker zum Netzwerkdrucker mutiert und jetzt häng ich gelegentlich an der richtigen Adresse des Druckers.

Mein Makro sieht wie folgt aus:

1 mal ausdrucken
Sheets("Etikett").Select
For I = 1 To 20
On Error Resume Next
Application.ActivePrinter = "TEC B-SV4 auf Ne0" & I & ":"
If Not Application.ActivePrinter = "TEC B-SV4 auf Ne0" & I & ":" Then GoTo 0
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"TEC B-SV4 auf Ne0" & I & ":", Collate:=True
GoTo 1
0
Next I
1
Range("L11").Select
End Sub

Damit konnte ich eine wechselnde Adresse (Ne**) in den Griff kriegen. Zwischendurch hatte mein Drucker auch die Adresse Ne17 und durch abändern des Makros auf "Ne" & I & " ging das dann auch. Bis der Drucker wieder eine Adresse mit "Ne0*" hatte.

Gibt es eine Möglichkeit dieses Problem in den Griff zu kriegen?

Hab von Makros Schreiben null Ahnung. Das Makro, dass ich jetzt verwende (s. o.) ist auch nur gegooglet.

Danke für die Hilfe.

Gruß
maxs

 

Hallo Max,

da bleibt Dir wohl nur übrig eine Druckerauswahl einzublenden
Application.Dialogs(xlDialogPrinterSetup).Show

Gruß Hajo

 

Hallo,

wenn es darum geht, das Arbeitsblatt 'Etikett' auf dem Standarddrucker auszudrucken, dann genügt folgendes Makro:

Code:

Public Sub StandardDrucker_Wählen()
  Sheets("Etikett").PrintOut Copies:=1, Collate:=True
End Sub

Wenn Du das Arbeitsblatt 'Etikett' jedoch auf einem speziellen Drucker 'TEC B-SV4' ausdrucken willst, der nicht als Standarddrucker auf Deinem PC eingestellt ist, der außerdem die Ne-Nummer zwischen 1 und 30 ändern kann, dann ist das folgende Makro zu nehmen:

Code:

Public Sub Drucker_Ne_Wählen()
  Dim Drucker$, I%
  On Error GoTo Resume_Drucker
  For I% = 1 To 30
    Drucker$ = "TEC B-SV4 auf Ne" & Format(I%, "00") & ":"
    Application.ActivePrinter = Drucker$
    Sheets("Etikett").PrintOut Copies:=1, Collate:=True
    Exit For
Resume_Drucker:
    Resume NxtDrucker
NxtDrucker:
  Next I%
End Sub

Wenn Du das Arbeitsblatt 'Etikett' mit einem Drucker, den Du über den Druckdialog auswählen kannst, drucken möchtest, dann ist das folgende Makro zu wählen:

Code:

Public Sub Drucker_Druckdialog()
  Dim Sh As Worksheet
  Dim IstGedruckt As Boolean
  
  Sheets("Etikett").Select
  IstGedruckt = Application.Dialogs(xlDialogPrint).Show
End Sub

 

Schnellster "Hack" des Codes:

In einer Schleife wird ja von 1 bis 20 probiert, bis der passende Anschluß gefunden wurde. Problematisch wird's ja, ob die Nummer 1- oder 2-stellig ist. Dem kannst Du mit der "format"-Funktion entgegenwirken.

Code:

Application.ActivePrinter = "TEC B-SV4 auf Ne" & format(I,"00") & ":"

Damit wird der Drucker sowohl als "Ne05" (und eben nicht "Ne5") wie auch als "Ne16" gefunden. (Das muß eine Zeile tiefer analog dazu angepaßt werden...)

Und sollte er mal als "Ne37" angeschlossen sein, müßtest Du nur die "20" in der "For"-Zeile anpassen.

Gruß, Michael