FiveTech Support Forums

Hi,

I'am still using FW1.9.5. In this version the TO clause doesn't work. I saw in the printer.prg source that it's looking at the WIN.INI file, and the printer aren't there in XP.
Is there a work-around? Is there maybe a function so I can change the default printer?

Thanks,
Marc

Thanks, I now I have to move to 32bits, but this application is still in 16

It's working, but the problem stays.
As I already experience before. If I start the application, then change the defaultprinter, he program still print to to default printer as it was wen starting the program. I there a solution for this problem?

Thanks,
Marc

Marc Vanzegbroeck wrote:It's working, but the problem stays.
As I already experience before. If I start the application, then change the defaultprinter, he program still print to to default printer as it was wen starting the program.

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oPrn, oFnt

    LOCAL nHStep, nVStep

    SETPRINTDEFAULT( "Win2PDF" )

    PRINT oPrn PREVIEW
        DEFINE FONT oFnt  NAME "Arial" SIZE 0, -10 OF oPrn

        nHStep = oPrn:nHorzRes() / 80
        nVStep = oPrn:nVertRes() / 66

        PAGE
            oPrn:Say( 0, 0, "This is a test", oFnt )
            oPrn:Say( 1 * nVStep, 0, "This is a test", oFnt )
        ENDPAGE
    ENDPRINT

    RELEASE FONT oFnt

    RETURN NIL


function SetPrintDefault( cModel ) 

   local cDriver := StrToken( GetProfString( "Devices", cModel, "" ), 1, "," ) 
   local cPort   := StrToken( GetProfString( "Devices", cModel, "" ), 2, "," ) 

   WriteProfString( "Windows", "Device", cModel + ",", + cDriver + "," + cPort ) 

return nil

The SETPRINTDEFAULT() change the defaultprinter but print to the default printer as it was before.
Closing the program and restarting, it print to the correct printer.
Maybe it was an error in FW1.9.5

Check if SetPrintDefault() really changes your default printer. If yes, your print have to necessarily go to that printer. Unless you issued SetPrintDefault() after PRINT command.

Did you try my sample as it is (changing the printer, of course)? Are you sure that the printer name you provided was correct? Copy and paste it from printers control panel just to be sure.

EMG

Enrico,

SetPrintDefault() really change my defaultprinter. This is not the problem. As I already told in my previous message. If I launch the program, than change the default printer manualy (via printer configuration) and than print, the program print to the printer that was the default one BEFORE launching my program. So the SetPrintDefault() have also no effect.

Marc

This is not what I get. How can TPrinter print on a printer that is not selected as default printer at the time you issue the PRINT command?

EMG

I know it sound strange, but I just doublechecked it in an other FW-application I wrote, and it's just the same..

This is not the behavior I observe in my tests. Did you try my sample? It prints to the new default printer, not to the old one. At least in 32 bit under Windows XP.

EMG

James,
It's working!!! Thanks.

Enrico,
Maybe it's an 16 bit behavior that the program take the default printer at program startup...

Marc

No, sorry, I just tested it in 16 bit and the behavior is exactly the same as in 32 bit: it prints on the new default printer.

EMG

Enrico,

>This is not the behavior I observe in my tests. Did you try my sample? It prints to the new default printer, not to the old one.

As I said in my previous message, I hadn't tried your code. I just did, and surprisingly it does print to the new Windows default printer. It doesn't seem logical that it would. I just tried running an application, then changing the default printer via the Windows Control Panel and the application's default printer remains that same as it was.

Apparently, your code is triggering a notification to the application to change it's printer but Windows' setup doesn't. Very odd.

As I mentioned in my previous message I highly recommend against changing the Windows default printer from within an application. Users are not going to expect this and it will probably upset them. Personally, I would be upset if a program did this.

James

James Bott wrote:As I mentioned in my previous message I highly recommend against changing the Windows default printer from within an application. Users are not going to expect this and it will probably upset them. Personally, I would be upset if a program did this.