Druckereinstellungen über VBA

Sub PDF() On Error GoTo Ende Application.ActivePrinter = "eDocPrinter PDF Pro auf Ne02:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "eDocPrinter PDF Pro auf Ne02:", Collate:=True _ Application.ActivePrinter = _ "\\S.....\P...... 402.. 03.OG Raum 309 auf Ne05:" 'hier dürfte dann kein Druckername mehr stehen, sondern das Makro müsste den jeweiligen als Standard definierten Drucker einstellen. Ende: End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub drucken 'normaler Druckbefehl aus Excel ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'stelle den in der Druckereinstellung als Standard definierten Drucker ein Makro = ? End Sub

hi,
man kann ja mehrere Drucker eingerichtet haben, muss jedoch einen als Standarddrucker auswählen. Möchte man einen anderen Drucker als den Standarddrucker auswählen, dann muss dieser explizit eingestellt werden. Wird das Programm neu geöffnet stellt sich der Standarddrucker wieder von neuem ein. Die Einstellung des Standarddruckers erfolgt i.d.R. über die Systemsteuerung.
Jeder User, der an einem anderen PC sitzt, kann sich seinen eigenen Drucker (Standarddrucker) einstellen (je nachdem wo er sitzt).
Jeder Drucker hat also einen anderen Namen (z.B. Drucker in Raum 1, Drucker in Raum 2, etc.). Die User benutzen alle zusammen das Tool, welches auf einem zentralen Server bereitgestellt wird und von jedem zugegriffen werden kann. Daher brauche ich ein Makro für die Druckfunktion, das den jeweiligen vom User definierten Drucker einstellt, ohne dass ich einen festen Druckername angeben muss.
Ich hoffe, dass ich etwas verständlicher war.
Gruß
Uwe

hi,
so stellst du den Standarddrucker aus der Systemsteuerung ein:
Option Explicit
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
Declare 

Function GetProfileSection Lib "kernel32" Alias "GetProfileSectionA" _
(ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Function GetDefaultPrinter() As String
Dim TempName As String
Dim DeviceNr As Long
TempName = String(1024, 0)
DeviceNr = GetProfileString("windows", "device", 0&, TempName, 1024)
If DeviceNr > 0 Then
GetDefaultPrinter = Left(TempName, InStr(TempName, ",") - 1)
Else
End Function


End If

End Function



Sub PDF()
On Error GoTo Ende
Application.ActivePrinter = GetDefaultPrinter
Ende:
End Sub


"Declare Function" jeweils hintereinanderschreiben (ist ein Fehler in der Darstellungsweise des Forums

cu Micha

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

2 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Druckereinstellungen über VBA

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

2 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread