FWH 13:09 Default Printer

[Antonio Linares]

Oscar,

I also need this, please:

MsgInfo( GETPROFSTRING( "Devices", cModel, "" ) )

[Antonio Linares]

Oscar,

This way:

Code: Select all  Expand view  RUN

  elseif cModel == nil
      cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()
      MsgInfo( GETPROFSTRING( "Devices", cModel, "" ) )
      ::hDC := PRINTERDCFROMNAME( STRTOKEN( GETPROFSTRING( "Devices", cModel, "" ), 1, "," ), cModel, STRTOKEN( GETPROFSTRING( "Devices", cModel, "" ), 2, "," ) )

[ORibeiro]

With:
cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()
MsgInfo( GETPROFSTRING( "Devices", cModel, "" ) )

The result is blank. Returns nothing.

[Antonio Linares]

Oscar,

This is the current code for that else:

Code: Select all  Expand view  RUN

      ::hDC := GetPrintDefault( GetActiveWindow() )
      if ::hDC != 0
         cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()
      endif
 

That should work for you, though you say that the selected printer does not remain selected all the app execution ?

[ORibeiro]

Linares,

I'll try my users adapt to this new reality.

But the ideal is that the system working again as before, as Windows programs work. For example, the MS-Word. When you open a document and before printing, change the printer destination, every impression of MS-Word will come out this new printer, even if you open other documents, printing will be directed to this same printer as MS-Word is open. Without affecting in any way the standard printer control panel of Windows. That's how programs Fivewin for Windows should work.

Please do this test in MS-Word.

Thanks,

[Antonio Linares]

Oscar,

Where are you selecting the target printer ? From the preview itself ?

[ORibeiro]

Linares,

We select one of two ways:

In the menu system using the command:
GetPrintDC (GetActiveWindow ())

Or before printing with the command:
PRINTERSETUP ()

Thanks,

[Antonio Linares]

Here there is some code that may help for what you are looking for:

https://www.powerbasic.com/support/pbforums/showthread.php?t=15204

We need to migrate it to FWH

[ORibeiro]

Yes. This is the way.

[Maurizio]

I do not know if this can help

viewtopic.php?f=3&t=27371

Maurizio
www.nipeservice.com

[Antonio Linares]

Maurizio,

Thanks for your help. What Oscar is looking for is to set a default printer from our apps that remains selected all the app execution time and does not modify the WIndows default printer.

[StefanHaupt]

Oscar,

why don´t you use the TO <cPrinter> clause ?

Code: Select all  Expand view  RUN

PRINT oPrn TO <cPrinterName>

1: get all printers with GetPrinters() (function from xHarbour) or any other function.
2: select the desired printer and save it in a global var or in an ini-file.
3: use always the TO clause (PRINT...TO, REPORT...TO, etc)

That does not affect the windows default printer and is working fine. I always use this technic and I never had problems

[Antonio Linares]

Stefan,

Very good, many thanks

Many times we miss the simplest way to do things

[ORibeiro]

Linares,

I'm with version FWH 13:09 Revision 2 and the selected printer is not getting active throughout the program. Should I make any changes in the source?

Thanks,

Code: Select all  Expand view  RUN

* Enhancement: Class TPrinter Method New() has been improved so the selected printer (default printer) remains the same all the app life. Thanks to Enrico!
viewtopic.php?p=152663#p152663
 

[mastintin]

viewtopic.php?f=6&t=27570&start=15#p153962