AW: Standard-Drucker als Auswahl im Drucken...-Menu
04.10.2007 11:14:28
Rolf
Nein, funzt nicht.
Stelle ich unter Drucker... den AdobePDF drucker ein, und lasse das Makro laufen, ändert der Drucker nicht auf meinen Standard-Drucker...
Gruss
Rolf
Ich wollte es mal mit dem versuchen:
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
Function GetDefaultPrinter() As String
Dim TempName As String
Dim DeviceNr As Long
TempName = String(1024, 0)
DeviceNr = GetProfileString("windows", "device", 0&, TempName, 1024)
GetDefaultPrinter = Left(TempName, InStr(TempName, ",") - 1)
End Function
Sub Drucken_mit_Standarddrucker()
ActiveWindow.SelectedSheets.PrintOut , ActivePrinter:=GetDefaultPrinter
End Sub
aber weiss nicht genau, wo das hinkommen muss (In Formulare oder das Arbeitsblatt, die Tabelle?)
Ausserdem wird beim reinkopieren der ganze erste Teil rot dargestellt, also fehlerhaft...
Da ich weder mit Declare noch jemals mit
Function gearbeitet habe, kannst du mir da in dieser Beziehung weiter helfen?
Gruss
Rolf