gestern bekam ich hier im Forum folgenden Code, um über eine Combobox einen neuen Drucker einstellen zu können:
Sub Faxen()
savPrinter = ActivePrinter
ActivePrinter = ComboBox1.value
ActiveSheet .PrintOut
ActivePrinter = savPrinter
End Sub
Leider bekomme ich in der 3. Zeile (ActivePrinter = ComboBox1.value) folgenden Laufzeitfehler 1004:
Die Methode 'ActivePrinter' für das Object '_Global' ist fehlgeschlagen.
Im einzelschrittmodus habe ich festgestellt, dass am Anfang der ActivePrinter z.B. "Drucker ABC auf Ne03:" heisst, in der Combobox wird er aber nur als "Drucker ABC" geführt - also ohne das "auf Ne03:"
Was mache ich in unten stehendem Code falsch?
Private Sub btnDruckeZaehlblatt_Click()
Dim strDrucker As String ' ausgewählter Drucker
Dim strStandarddrucker As String ' bisheriger Standarddrucker
strDrucker = cboDrucker.Value
strStandarddrucker = ActivePrinter
ActivePrinter = strDrucker ' ausgewählten Drucker einstellen
ActiveSheet .PrintOut
ActivePrinter = strStandarddrucker ' alten Standarddrucker wieder einstellen
End Sub
m.f.g.
Harald