habe ein Problem. Habe ein Programm zum drucken. Auf meinem Rechner funktioniert es . Aber auf dem Rechner meines Kumpels funktioniert es nicht mehr.
Er findet den Drucker nicht mehr. Bei mir ist der Drucker auf Ne00 bei ihm Ne03. Aber da wir das Programm beide gleichzeitig nutzen wollen wir kann ich den Port suchen.
Nachstehend die Programmierung
Public Sub alsPdfSpeichern(speicherOrt As String, seiteVon As Integer, seiteBis As Integer)
ActiveSheet.Range("A1").Select
'löschen der alten Dateien
If (Dir$(speicherOrt & "*.pdf") "") Then Kill speicherOrt & "*.pdf"
If seiteVon > seiteBis Then seiteVon = seiteBis
'Drucken solange bis alle Seiten ausgedruckt sind
Dim strDruckerAktiv As String, strDruckerPDF As String
strDruckerAktiv = Application.ActivePrinter 'Drucker merken
'MsgBox "Name-AktiverDrucker: " & strDruckerAktiv
strDruckerPDF = "Microsoft XPS Document Writer auf Ne00:"
'MsgBox "Name-AktiverDrucker: " & strDruckerPDF
Application.ActivePrinter = strDruckerPDF
While seiteVon