I think this is the standard behavior. The default printer will not change when you change the printer in the PRINTING module. To change the default printer requires that it be changed in the application itself.

At least, that's what I have seen. Depending on your version of Windows, sometimes the previously selected printer will be the new default in the PRINTING options.


Later -

Olan

HI Ankit;

  Please try using the PrintSetPrinter() command in your PB App to change the current default printer for your App EXE.

HTH

Regards ... Chris

I'm having the same problem... my users select Print Setup and change the default printer.  But that change isn't changing the default printer in windows. File -> Print is ignoring what was set in Printer Setup, but PrintImmediate toolbar button is remembering it, meanwhile the Windows default printer isn't changing.

I don't know when Print, PrintSetup and PrintImmediate changed, but this code has worked for 20+ years with my applications, until I migrated to PB12 and Windows 10.

~~~Tracy

Tracy -

   This is PBv12.1 code that I have that works in every environment we have except one. In that ONE VM, the call to PrintGetPrinter() causes the app to abend.

// In the OPEN event
STRING                            &
    ls_printer_detail_array,    &
    ls_printer_detail_printer_name, ls_ver, ls_title
   
ls_printer_detail_array = PrintGetPrinter()

ll_position = PosA(ls_printer_detail_array,"~t")
ls_printer_detail_printer_name = LeftA(ls_printer_detail_array,ll_position - 1)

// this is a text field on the window that displays the current printer
sle_printer.Text = 'Printer = '+ls_printer_detail_printer_name

// cb_change_printer
// This is a command button on the window

// Clicked event
OpenWithParm(w_set_default_printer,'ROOT')

// w_set_default_printer
// File is attached. Rename w_set_default_printer.jpg to w_set_default_printer.srw.

~~~~~~~~~~~~~~~~~~~~~~~~~

To manually update the Registry with the current printer:

CONSTANT STRING IS_DEFAULT_KEY   =
        "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows"

CONSTANT STRING IS_DEFAULT_VALUE = "Device"

Good Luck,

Olan