Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucker funktioniert nicht per Makro Auswahl

Forumthread: Drucker funktioniert nicht per Makro Auswahl

Drucker funktioniert nicht per Makro Auswahl
30.12.2023 11:46:28
walter
Guten Tag,
ich habe 2 Makros für die Druckerauswahl:
dieser Funktioniert:
Application.ActivePrinter = "HP OfficeJet Pro 8020 series PCL-3 (Netzwerk) auf Ne07:"

dieser nicht:
Application.ActivePrinter = "NP17DAA45 (HP LaserJet M209dw) auf Ne00:"
leider kommt Fehlermeldung: "Laufzeitfehler 1004"

habe versucht Makro Aufzeichnung, leider werden da nicht die genauen Daten des Druckers angezeigt.
Über :
Application.Dialogs(xlDialogPrinterSetup).Show
wird der Drucker angezeigt allerdings nicht "auf Ne00"

Wie kann ich es herausfinden wie der ich den Drucker aktivieren kann, bei dem OfficeJet klappt es ja.

mfg walter
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucker funktioniert nicht per Makro Auswahl
30.12.2023 11:51:22
JoWE
Hallo Walter:
hiermit erfährst Du die Werte für die vorhandenen Drucker: 
Option Explicit



Public Sub ListPrinter()

    'by Ramses 24.02.2009

    'Speichert alle installierten Drucker im Array "arrPrinter"

    Const HKEY_current_user = &H80000001

    Dim oReg As Object, i As Long

    Dim strKeyPath As String, strValue As String, msg As String

    Dim arrPrinter As Variant

    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

    strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Devices"

    oReg.EnumValues HKEY_current_user, strKeyPath, arrPrinter

    For i = 0 To UBound(arrPrinter)

        oReg.GetStringValue HKEY_current_user, strKeyPath, arrPrinter(i), strValue

        msg = msg & arrPrinter(i) & Replace(strValue, "winspool,", " auf ") & vbCr

    Next

    Set oReg = Nothing

    MsgBox msg, vbInformation, "Druckerliste WMI"

End Sub

Gruß
Jochen
Anzeige
AW: Drucker funktioniert nicht per Makro Auswahl
30.12.2023 13:34:36
walter
Hallo Jochen,
danke !
Ich habe die Beschreibung des Druckers genau so im Makro und trotzdem kommt
eine Fehlermeldung, verstehe ich nicht !

mfg walter
Warum klappt es nicht mit Laser
30.12.2023 13:51:00
walter
Hallo zusammen,
warum klappt das Makro für OfficeJet und nicht mit der Zeile für LaserJet ? 

Public Sub V_HPOfficejet6600()

      Application.ActivePrinter = "HP OfficeJet Pro 8020 series PCL-3 (Netzwerk) auf Ne07:"

'damit nicht !

'Application.ActivePrinter = "NP17DAA45(HP LaserJet M209dw auf Ne00:"

End Sub


mfg walter
Anzeige
AW: Drucker funktioniert nicht per Makro Auswahl
30.12.2023 12:25:59
RPP63
Moin!
Eine funktionierende Lösung hast Du ja von JoWE erhalten.
Dennoch die Nachfrage:
Wozu willst Du den ActivePrinter explizit festlegen?
Meine Nachfrage bezieht sich darauf, dass Du den Drucker ja auch in der .PrintOut-Methode festlegen kannst.
Dort ist "auf Ne06:" nicht notwendig.
Dort reicht: 
Tabelle1.PrintOut ActivePrinter:="NP17DAA45 (HP LaserJet M209dw)"

Gruß Ralf
Anzeige
AW: Drucker funktioniert nicht per Makro Auswahl
30.12.2023 13:37:22
walter
Hallo Ralf,
ich möchte einmal den Farbdrucker auswählen oder halt den Laserdrucker (Schwarz), deshalb
habe ich die beiden Makros erstellt.

mfg walter
AW: Drucker funktioniert nicht per Makro Auswahl
30.12.2023 13:42:43
RPP63
Ändert doch nix an meiner Aussage, Walter!
Du willst ja schließlich etwas mit den Druckern anstellen.
Auf Anhieb fällt mir da der Druck ein. :-))
Und wie ich schrieb:
Die printout-Methode funktioniert auch ohne Ne06:
Anzeige
Ja Ralf aber...
30.12.2023 13:53:00
walter
Hallo Ralf,
ich möchte nicht direkt ausdrucken sondern den Drucker wechseln !

mfg walter
Ich habe jetzt es so gemacht ... -)
30.12.2023 13:57:32
walter
Hallo zusammen,
ich habe es so gemacht:

Application.Dialogs(xlDialogPrinterSetup).Show

damit wähle ich den Drucker aus und Drucke nicht direkt !
Danke an alle.
Schönen Übergang ins neue Jahr !
Anzeige
;

Forumthreads zu verwandten Themen

automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Attachment anhängen funktioniert nicht
Ano

Hi zusammen,
ich habe hier im Forum einen Artikel (https://www.herber.de/forum/archiv/636to640/t638281.htm#638285)
gefunden, der den Emailversand über GroupWise darstellt. Das VBA-Script funktioniert hervorragend. Allerdings nur, wenn ich kein Attachment anhänge.
Ich möchte eigentli...
28.08.2008 11:23:27
Thread-ID: 1005349
2 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Anzeige
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Anzeige
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Combobox exit funktioniert nicht
Stefan

Hallo Excel-Profis,
ich habe ein Problem mit meiner Userform. Diese enthält eine Combobox "Hubraum" und einen CommandButton "Speichern". Die Eingabewerte in der Combobox möchte ich mit folgendem Code auf eine Nachkommastelle runden:
Private Sub cboHubraum_Exit(ByVal Cancel As MSForms....
14.01.2009 08:53:38
Thread-ID: 1039450
23 Beiträge
Combobox exit funktioniert nicht
Stefan

Hallo Excel-Profis,
Ich habe folgendes Problem: Ich habe auf einer Userform ein Multipage liegen, auf deren Seiten sich wiederum diverse Text- und Comboboxen befinden. Unterhalb der Multipage liegen auch noch einige Commandbuttons.
Nun möchte ich beim Verlassen einer Combobox über cboHe...
20.01.2009 15:44:28
Thread-ID: 1041874
5 Beiträge
Anzeige
Code funktioniert nicht in Excel 2000
marc

Hallo zusammen
Leider funktioniert folgender "Sortierungscode nicht" in Excel 2000 ,
weiss jemand eine Lösung?
Public Sub Vereinsmeisterschaft_A_Rangliste_sortieren() Sheets("Vereinsmeisterschaft_A").Select Range("B4:I53").Select Selection.Sort Key1:=Range("I4"), Order1:=xlDescend...
26.01.2009 13:32:17
Thread-ID: 1043880
2 Beiträge
Schaltfläche funktioniert bei Blattschutz nicht
manuela

hallo
möchte die daten aus einer sql-datenbank mittels makro aktualisieren. dazu hebe ich zuerst den blattschutz auf, aktualisiere und setze den blattschutz wieder. das makro läuft einwandfrei. sobald ich es aber mit einer userform auf dem blatt selbst verknüpfe, kriege ich eine fehlermeldu...
04.02.2009 11:12:30
Thread-ID: 1046940
5 Beiträge
ComboBox in UF funktioniert nicht!?
Timmy

Liebe Excler,
anbei meine Problem-Datei ;-)
ich will einen Namen in der UF auswaehlen, sowie das Datum dazu. Das klappt super, jedoch habe ich auch noch eine ComboBox, in welcher "noch offen" steht. Wenn ich diese auswaehle, fuellt excel trotzdem mit einem Datum aus, obwohl ich will, da...
17.02.2009 15:27:00
Thread-ID: 1051519
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige