AW: Standarddrucker
25.02.2008 07:59:19
haw
Hallo Excelfreunde,
habe gerade den Beitrag von Ramses gefunden:
Geschrieben am: 13.11.2003 21:02:17
Hallo
Probier mal
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
GetDefaultPrinter = "No Default Printer"
'oder zum besseren Testen
'Achtung: "False" = KEIN Boolean Wert
'NUR ein String
'GetDefaultPrinter = "False"
End If
End
Function
Gruss Rainer
Das declare gehört natürlich immer vor dem Begriff "Function", es wird nur hier getrennt.
Gruß
Heinz