Druckerbezeichnung auf NE0x: ändert sich

Hallo .. ich habe folgendes Problem
In meiner Mappe wird die Seite wksBarverkauf als PDF gemail.
Allerdings ändert sich die Drucker zuweisung dauernd:
Gestern war es noch "Microsoft Print to PDF auf NE02:" heute ist es dann auf einmal "Microsoft Print to PDF auf NE05:"
Lasse ich die Zeile ".Application.ActivePrinter = "Microsoft Print to PDF auf NE02:" weg .. funktioniert es so lange bis mal auf den DYMO gedruckt wurde.
Beim nächsten mal PDF Mailen sieht man dann nur die Größe des DYMO Ettikettes


With wksBarverkauf
.Application.ActivePrinter = "Microsoft Print to PDF auf NE02:"
.ExportAsFixedFormat Type:=xlTypePDF, From:=1, To:=1, _
Filename:=PDF_Speicher, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With

Hat jemand eine IDee wie man es umgehen kann?
LG
Sabbel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Printer_List() Dim Ws As Worksheet: Set Ws = ThisWorkbook.Sheets("Drucker") Dim sBuf As String, i As Integer sBuf = Space$(8192) GetProfileString "PrinterPorts", vbNullString, "", sBuf, Len(sBuf) GetName sBuf GetPort For i = 0 To iCount Ws.Cells(i + 4, 1) = sName(i) Ws.Cells(i + 4, 2) = sPort(i) 'WS.Cells(i + 1, 3) = sDriver(i) Next End Sub

Option Explicit Private Const MP = 16 Private sName(MP) As String Private sDriver(MP) As String Private sPort(MP) As String Private iCount As Integer Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" ( _ ByVal lpAppName As String, _ ByVal lpKeyName As String, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long) As Long Sub Printer_List() Dim Ws As Worksheet: Set Ws = ThisWorkbook.Sheets("Drucker") Dim sBuf As String, i As Integer sBuf = Space$(8192) GetProfileString "PrinterPorts", vbNullString, "", sBuf, Len(sBuf) GetName sBuf GetPort For i = 0 To iCount Ws.Cells(i + 4, 1) = sName(i) Ws.Cells(i + 4, 2) = sPort(i) 'WS.Cells(i + 1, 3) = sDriver(i) Next End Sub

Dim wksDatei1 As Worksheet Set wksDatei1 = Workbooks("Datei.xlsm").Worksheets("Tabelle1") Dim xSuche As String Dim Zahl As Variant Dim Drucker as String Dim rng As RangexSuche = "Microsoft Print to PDF" Set rng = wksDatei1.Columns("A:A").Find(xSuche, lookat:=xlWhole, LookIn:=xlValues) If Not rng Is Nothing Then Zahl = rng.Offset(0, 1) '

Beliebteste Forumthreads (12 Monate)

Druckerbezeichnung auf NE0x: ändert sich

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread