My vb6 exe is crashing every time I try to print a document out of it

Question

One of my client is facing this issue that the vb6 exe is crashing every time he tries to print the message text from the print button present in the exe.

Following is the code written for print button.

 iRetValue = GetProfileString("windows", "device", ",,,", strBuffer, 254)

strDefaultPrinterInfo = Left(strBuffer, InStr(strBuffer, Chr(0)) - 

tblDefaultPrinterInfo = Split(strDefaultPrinterInfo, ",")






Dim picount As Integer

picount = 0

    For Each objPrinter In Printers

        picount = picount + 1

        If objPrinter.DeviceName = tblDefaultPrinterInfo(0) Then

            ' Default printer found !

            Exit For

        End If

    Next


    If objPrinter.DeviceName <> tblDefaultPrinterInfo(0) Then

        Set objPrinter = Nothing

        GoTo ExitHandler
    End If

    Set GetDefaultPrinter = objPrinter

    txtPrintMsg.text = txtMsg.text

    txtPrintMsg.SelPrint objPrinter.hDC

Total printers they have are 700.

Asap is not a friendly word. Please tell us, on which line your code crashes. — nabuchodonossor, Apr 04 '17 at 07:51
Please read [Under what circumstances may I add “urgent” or other similar phrases to my question, in order to obtain faster answers?](https://meta.stackoverflow.com/q/326569) - the summary is that this is not an ideal way to address volunteers, and is probably counterproductive to obtaining answers. Please refrain from adding this to your questions. — halfer, Apr 04 '17 at 08:13
The very first line of code (with GetProfileString ) doesn't look like valid syntax — StayOnTarget, Apr 04 '17 at 11:31
@davelncaz :- while crashing it is not giving any error messages and not even writing error logs.It gets hanged for a while and closes itself automatically. — Ryan chamania, Apr 05 '17 at 04:37
@Ryanchamania: Where is GetDefaultPrinter defined? Which type? Why do you think, txtPrintMsg.SelPrint does work? I can´t find this in VB6 — nabuchodonossor, Apr 05 '17 at 05:42
@nabuchodonossor Its a Public Function GetDefaultPrinter() As Printer and it was called on print button.This Code is working for all the other user but not for one. — Ryan chamania, Apr 05 '17 at 05:49
@Ryanchamania: When it works for all users, did you already try to find the difference for the not working pc? — nabuchodonossor, Apr 05 '17 at 11:21
May be platform specific error!. Which is the operating system? — Chandralal, Apr 05 '17 at 13:10

score 0 · Answer 1 · answered Apr 05 '17 at 09:10

GetDefaultPrinter function return a bool value, while you try to SET a value.

Then, your statement: Set GetDefaultPrinter = objPrinter is totally wrong.

GetDefaultPrinter function (Windows) https://msdn.microsoft.com/en-us/library/windows/desktop/dd144876(v=vs.85).aspx

My vb6 exe is crashing every time I try to print a document out of it

1 Answers1