Office: Ausdruck eines Etiketts auf verschiedenen PCs steuern

Hallo,
ich habe mir ein kleines Etikettenprogramm geschrieben ( ACCESS 2016) und nutze dies auf 3 PCs.
An jedem PC ist ein WLAN Drucker. Wenn ich nun eine Änderung am Programm mache und das Programm dann auf die anderen PCs übertrage muss ich auf jeden PC den Drucker für die Etiketten neu angeben.

Habe auf jedem PC den gleichen Druckernamen eingerichtet.

Es sind die gleichen Drucker und Treiber.
1x Win 11 und 2x Win 10.

Der Druck startet nach klick auf einen Button.

1. Ansatz:
Private Sub Befehl319_Click()
DoCmd.OpenReport "STAMMMUMMER_ETIKETT", acViewNormal
END sub

Funktioniert, aber wie gesagt muss auf jedem PC der Drucker neu angegeben werden.



2. Ansatz:

Private Sub Befehl319_Click()
Dim DRUCKER As String

DRUCKER = "ARTIKELETIKETTENDRUCKER"

DoCmd.OpenReport "STAMMMUMMER_ETIKETT", acViewPreview, , , acHidden
Reports!STAMMMUMMER_ETIKETT.Printer = Application.Printers(DRUCKER)
DoCmd.Close acReport, "STAMMMUMMER_ETIKETT"
END sub

Hier passiert bei 1. klick nichts und beim 2. öffnet sich das Vorschaufenster aber es wird nichts gedruckt

Was mach ich falsch?

 

Moin Hansol,

nicht für AC aber XL habe ich eine Userform gebastelt, die Dir schon mal das Neueinrichten der Drucker pro Arbeitsplatz erspart. Und einiges mehr ... ;-)

Im Code sind nur ein paar Spezifika für XL-Sheets vorhanden, die Du -falls Du sie denn nutzen willst- an AC Reports anpassen müsstest. Ich habe mich bemüht aussage-kräftig zu kommentieren. Man kann den Code natürlich auch nach Bedarf eindampfen.

Hier der Link zum Download

Die dafür notwendige Anmeldung ist kostenlos und schmerzfrei.

Schöne Grüße

 

Hallo d'r Bastler,
was bedeutet "nicht für AC aber XL "?

 

Moin!
AC = Access / XL = Excel. Die beiden haben als Gemeinsamkeit VBA als Programmiersprache.
Grüße

 

Moin Hansol,
technisch wird Deine Problem vermutlich daran liegen, dass der gewünschte Drucker auf den einzelnen PC über unterschiedliche Ne-Ports angesprochen wird: Drucker XY auf Ne04 kann auf dem nächsten PC auf Ne02 usw. liegen.

Nachdem du einen WLAN-Drucker nutzt, könntest Du das umgehen, indem Du die IP-Adresse des Geräts als Anschluss definierst. Das geht am einfachsten mit einem PowerShell-Skript, das Du (angepasst!) wie das Kopieren des AC-Files an jedem PC (mit Adminrechten) ausführst:

Code:

# Druckername und neue IP-Adresse anpassen
$PrinterName = "DeinDruckername"
$IPAddress = "192.168.x.x"  # Ersetze dies mit der tatsächlichen IP

# Druckerport erstellen
New-PrinterPort -Name "IP_$IPAddress" -PrinterHostAddress $IPAddress

# Drucker mit neuem Port verknüpfen
Set-Printer -Name $PrinterName -PortName "IP_$IPAddress"

Write-Host "Der Drucker $PrinterName wurde erfolgreich auf die IP $IPAddress umgestellt."

Viel Erfolg! und schönes Wochenende