Office: Drucken per Makro an IP Adresse des Druckers

mi.franz · 15. Mai 2005

Hallo,

ich habe das Problem, dass in meiner Firma die Drucker mit verschiedenen Namen auf den Rechnern installiert sind, obwohl es sich um die gleichen Drucker handelt (ich weiß, ziemlich bescheuert, ist aber so).

Nun möchter ich ein Excel Sheet ausdrucken. Da nun die einzige eindeutige Unterscheidung der Druckers anhand der IP Adresse erfolgt, war meine Idee mittels dem PrintOut Befehl die IP des Druckers anstatt den Namen des Druckers anzusteuern.

Hat jemand eine Idee, wie das funktioniert?

:)

Lumpensammler · 16. Mai 2005

Hallo, Micky,

ich weiß nicht, ob es wirklich so einfach geht. Bisher habe ich API eingesetzt, um die Drucker auszulesen und dann einzusetzen: Installierte Drucker auslesen, wobei der Code dort abgeschnitten wiedergegeben wird. Der weitere Code lautet:

Code:

Do
aPrinterNameLen = 255
aPrinterName = String(aPrinterNameLen, CStr(0))
tmpFunctionResult = Not CBool _
( _
RegEnumKeyEx _
( _
hKey:=AddressofOpenKey, _
dwIndex:=aPrinterIndex, _
lpName:=aPrinterName, _
lpcbName:=aPrinterNameLen, _
lpReserved:=0, _
lpClass:=vbNullString, _
lpcbClass:=0, _
lpftLastWriteTime:=aFileTimeStruc _
) _
)
aPrinterIndex = aPrinterIndex + 1
If tmpFunctionResult = False Then Exit Do
aPrinterName = Left(aPrinterName, aPrinterNameLen)
On Error Resume Next
fncEnumInstalledPrintersReg.Add aPrinterName
On Error GoTo 0
Loop
Call RegCloseKey(AddressofOpenKey)
'
Exit Function
ExitFunction:
If Not AddressofOpenKey = 0 Then _
Call RegCloseKey(AddressofOpenKey)
Set fncEnumInstalledPrintersReg = Nothing
End Function

Sub DruckerAuslesen()
Dim aPrinter As Variant
Dim iRow As Integer
For Each aPrinter In fncEnumInstalledPrintersReg
iRow = iRow + 1
Cells(iRow, 1) = aPrinter
Next aPrinter
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
LS

mi.franz · 17. Mai 2005

Hallo LS bzw. jeder, der dies liest,

gibt es keine einfachere Möglichkeit, per VBA einen Druckauftrag an eine IP-Adresse anstelle an einen Druckernamen zu senden?

Lumpensammler · 17. Mai 2005

Hallo, Micky,

was gibst Du denn in der Druckersteuerung ein: eine IP oder den Namen eines Druckers?

Gruß
LS

mi.franz · 17. Mai 2005

der Befehl lautet:

Code:

ActiveWindow.SelectedSheets.PrintOut Copies:=Anzahl, ActivePrinter:="Kyocera C5016N auf Ne02:", Collate:=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe mehrere Excel Sheets, die je nachdem auf dem Farbdrucker (=Kyocera C5016N) oder auf dem Schwarz-Weiß Drucker (=Kyocera FS1900) gedruckt werden sollen.
Da die Drucker auf den AP unterschiedliche Namen haben, wollte ich es über die IP-Adresse steuern.

Lumpensammler · 17. Mai 2005

Hallo, Micky,

ich bin mir nicht sicher, aber ich meine mich erinnern zu können, daß die Drucker in Excel als Namen aufgeführt werden. Zumindest ist dies auf dem Netzwerkrechner der Fall, an dem ich jetzt sitze. Ich müßte heute Abend ein wenig schmökern, wenn die Zeit es erlaubt. Ein Ergebnis kann ich leider nicht garantieren.

Gruß
LS

Vielleicht kann der folgende Link helfen: IP Helper API: Retrieving Basic Information

Office: Drucken per Makro an IP Adresse des Druckers

Drucken per Makro an IP Adresse des Druckers

Drucken per Makro an IP Adresse des Druckers

Drucken per Makro an IP Adresse des Druckers

Drucken per Makro an IP Adresse des Druckers - Similar Threads - Drucken Makro Adresse

Drucken über VBA Makro

VBA Makro Outlook zum drucken von Anhängen neuer emails

VBA Makro - Aktuellen Abschnitt drucken

Bestimmter Druckbereich plus angehakte Zeilen mit Button drucken

Blattschutz VBA mit PW und Bedingungen

Makro drucken in Pivot Tabelle als pdf

Drucken (Auswahl) mit Makro