Printer Dialog Box through SDK creating problem

Question

Hello Experts,
I have created a addon for printing Invoice Report in which i have given the option of Printer Dialog Box .
Through sdk i have called that printer dialog box in the addon .It's running well in the server showing the Printer Dialog Box
but while running the addon in client machine first two to three times printer dialog box appears after that while pressing the
print button of my addon form Printer dialog box is not appearing .
Then after restarting the machine Printer dialog box shows which is creating problem for the client use .
Suggest the right way to sort out the problem .
If anyone need to see the code which i have written i can post that code.
Thanks
Amit

Answer 1

Hello Janos,
Following code i have write for prrinter dialog box to open
Public Sub ShowPrintDialogBrowser()
Dim MyProcs() As System.Diagnostics.Process
FileName = ""
Dim PrintFile As New PrintDialog
Try
PrintFile.AllowSelection = True
PrintFile.ShowNetwork = True
MyProcs = Process.GetProcessesByName("SAP Business One")
Dim UserName = Environment.UserName
             For i As Integer = 0 To UBound(MyProcs)
                If GetProcessUserName(MyProcs(i)) = UserName Then
                    GoTo NEXT_STEP
                End If
            Next
            sbo_application.MessageBox("Unable to determine Running processes by UserName!")
            GC.Collect()
            Exit Sub
NEXT_STEP:
For i As Integer = 0 To MyProcs.Length - 1
Dim MyWindow As New WindowWrapper(MyProcs(i).MainWindowHandle)
Dim ret As DialogResult = PrintFile.ShowDialog(MyWindow)
If ret = DialogResult.OK Then
File_Directory = PrintFile.PrinterSettings.PrinterName
PrintFile.Dispose()
ElseIf ret = DialogResult.Cancel Then
File_Directory = ""
System.Windows.Forms.Application.ExitThread()
Else
File_Directory = ""
System.Windows.Forms.Application.ExitThread()
End If
Next
End If
Catch ex As Exception
SBO_Application.MessageBox(ex.Message)
FileName = PrintFile.PrinterSettings.PrinterName
Finally
PrintFile.Dispose()
End Try
End Sub
Imports System.Management
Private Function GetProcessUserName(ByVal Process As Process) As String
        Dim sq As New ObjectQuery("Select * from Win32_Process Where ProcessID = '" & Process.Id & "'")
        Dim searcher As New ManagementObjectSearcher(sq)
        If searcher.Get.Count = 0 Then Return Nothing
        For Each oReturn As ManagementObject In searcher.Get
            Dim o As String() = New String(1) {}
            'Invoke the method and populate the o var with the user name and domain                        
            oReturn.InvokeMethod("GetOwner", DirectCast(o, Object()))
            Return o(0)
        Next
    End Function
Regards,
Amit