DevTrain Startseite Advanced Developers Conference vom 14.-15. Februar 2011  
  
  
SUCHEN:  
ARTIKEL ONLINE: 525   

Kategorien
.NET
Datenbanken
Web
XML

Allgemein
Camp
Foren
Events
Persönliche Einstellungen
Registrieren
Prämien Shop
Kontakt
Impressum
Über DevTrain

Autoren



 

Forum: Visual Basic | Thema: AW: Standarddrucker | Von: Thomas Scherner ( 12.12.2006 14:40)

Hallo Merlin, schau mal hier vielleicht hilft dir das was ??
Ist aus einem Forum hatte ich mir irgendwann mal kopiert .
Vielleicht ein Ansatz

Option Explicit

' zunächst die benötigten API-Deklarationen
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformID As Long
szCSDVersion As String * 128
End Type

Private Declare Function GetVersionEx Lib "kernel32" _
Alias "GetVersionExA" _
(ByRef lpVersionInformation As OSVERSIONINFO) As Long

Private Const VER_PLATFORM_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1

' -----------------------------------------------------
' Standarddrucker-Wechsel unter Win2k/XP
' -----------------------------------------------------
Private Declare Function SetPrinterDef Lib "winspool.drv" _
Alias "SetDefaultPrinterA" ( _
ByVal lpPrinter As String) As Long

' -----------------------------------------------------
' Standarddrucker-Wechsel unter Win9x
' -----------------------------------------------------
Private Declare Function OpenPrinter Lib "winspool.drv" _
Alias "OpenPrinterA" ( _
ByVal pPrinterName As String, _
phPrinter As Long, _
pDefault As PRINTER_DEFAULTS) As Long

Private Declare Function ClosePrinter Lib "winspool.drv" ( _
ByVal hPrinter As Long) As Long

Private Declare Function GetPrinter Lib "winspool.drv" _
Alias "GetPrinterA" ( _
ByVal hPrinter As Long, _
ByVal Level As Long, _
pPrinter As Any, _
ByVal cbBuf As Long, _
pcbNeeded As Long) As Long

Private Declare Function SetPrinter Lib "winspool.drv" _
Alias "SetPrinterA" ( _
ByVal hPrinter As Long, _
ByVal Level As Long, _
pPrinter As Any, _
ByVal Command As Long) As Long

Private Const CCHDEVICENAME = 32
Private Const CCHFORMNAME = 32

Private Type DEVMODE
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCHFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Long
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Private Type PRINTER_DEFAULTS
pDatatype As String
pDevMode As DEVMODE
DesiredAccess As Long
End Type

Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
Private Const PRINTER_ATTRIBUTE_DEFAULT = &H4
Private Const PRINTER_ACCESS_ADMINISTER = &H4
Private Const PRINTER_ACCESS_USE = &H8
Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)

' -----------------------------------------------------
' Standarddrucker-Wechsel unter WinNT4
' -----------------------------------------------------
Private Declare Function RegOpenKey Lib "advapi32.dll" _
Alias "RegOpenKeyA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" ( _
ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, _
lpType As Long, _
lpData As Any, _
lpcbData As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" _
Alias "RegSetValueExA" ( _
ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal Reserved As Long, _
ByVal dwType As Long, _
lpData As Any, _
ByVal cbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_SZ = 1

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const HWND_BROADCAST = &HFFFF&
Private Const WM_WININICHANGE = &H1A


in dem Bereich jetzt must du einen Druckernamen festlegen:

' Standarddrucker-Wechsel
Public Function SetPrinterDefault(ByVal sPrinter As String) As Boolean
Dim OSVersion As OSVERSIONINFO
Dim nResult As Long
Dim hKey As Long
Dim hPrinter As Long
Dim nInfo() As Long
Dim udtPrinter As PRINTER_DEFAULTS

' Welches Betriebssystem wird verwendet?
With OSVersion
.dwOSVersionInfoSize = Len(OSVersion)
GetVersionEx OSVersion

If (.dwPlatformID = VER_PLATFORM_WIN32_NT) And _
(.dwMajorVersion > 4) Then

' Windows 2000 / XP
nResult = SetPrinterDef(sPrinter)
SetPrinterDefault = (nResult <> 0)

ElseIf (.dwPlatformID = VER_PLATFORM_WIN32_NT) And _
(.dwMajorVersion = 4) Then

' Windows NT 4
nResult = RegOpenKey(HKEY_CURRENT_USER, _
"Software\Microsoft\Windows NT\CurrentVersion\Windows", hKey)

If nResult = 0 Then
If RegSetValueEx(hKey, "Device", 0, REG_SZ, _
sPrinter, Len(sPrinter)) = 0 Then
SetPrinterDefault = True

' System über Änderung benachrichtigen
SendMessage HWND_BROADCAST, WM_WININICHANGE, 0, 0
End If
RegCloseKey hKey
End If

Else
' Windows 9x
With udtPrinter
.DesiredAccess = PRINTER_ALL_ACCESS
End With
If OpenPrinter(sPrinter, hPrinter, udtPrinter) <> 0 Then
GetPrinter hPrinter, 5, ByVal 0&, 0&, nResult
ReDim nInfo(nResult \ 4)
GetPrinter hPrinter, 5, nInfo(0), nResult, nResult
nInfo(2) = nInfo(2) Or PRINTER_ATTRIBUTE_DEFAULT
If SetPrinter(hPrinter, 5, nInfo(0), 0&) <> 0 Then
SetPrinterDefault = True
End If
ClosePrinter hPrinter
End If
End If
End With
End Function

Gruß
Thomas


Ich bin ein Newbie . Aber jeder hat mal angefangen. Gruß & Dank Thomas


Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!

 Betreff:
 Nachricht: Den Beitrag finden Sie nun unter: http://beta.devtrain.de/foren Die Benutzerdaten und Foreninhalte von beta.devtrain.de und www.devtrain.de sind die selben.
Sie können sich dort sogar per RSS über neue Inhalte informieren lassen.
Bei Problemen bitte direkt Mail an asp [AT] ppedv.de.

 Signatur:

  



Login
Username:


Passwort:






Passwort vergessen?

Advanced Developers Conference vom 14.-15. Februar 2011

© Copyright 2003 ppedv AG