Set default printer

[sashi]

Set default printer

You will often find yourself in a position where you have designed a report format for one printer and when that report is sent to another printer the layout is messed up.

The following code will allow you to specify the printer that reports are sent to by reseting the systems default printer.

Windows API/Global Declarations

Public Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
 
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Public Const HWND_BROADCAST = &HFFFF&
    Public Const WM_WININICHANGE = &H1A 
 

Code

Public Function SetDefaultPrinter(objPrn As Printer) As Boolean
    Dim x As Long, sztemp As String
    sztemp = objPrn.DeviceName & "," & objPrn.DriverName & "," & objPrn.Port
    x = WriteProfileString("windows", "device", sztemp)
    x = SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0&, "windows")
End Function
 
Private Sub Command1_Click()
    Dim x As Printer
    If MsgBox("Are You Sure Want To Set " & Combo1.Text & " as Default printer ? ", vbYesNo, "Attention") = vbYes Then
 
        For Each x In Printers
            If x.DeviceName = Combo1.Text Then
                SetDefaultPrinter x
                Exit Sub
            End If
        Next
 
    End If
End Sub
 
Private Sub Form_Load()
    Dim x As Printer
    Dim y As Integer
    y = 0
 
    With Combo1 'Scan all available printer and put them
        For Each x In Printers 'in To combo box.
            .AddItem x.DeviceName, y
            y = y + 1
        Next
        .ListIndex = 0
    End With
 
End Sub
 

[creative1]

Good Piece of Work.

[delavegas]

Absolute amazin. But there a problem, SendMessage(HWN D_BROADCAST, WM_WININICHANGE , 0&, "windows") in sometimes, crash my aplication. Any tip to resolve this problem?!