Oscar,
I also need this, please:
MsgInfo( GETPROFSTRING( "Devices", cModel, "" ) )
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour FWH 13:09 Default Printer
Oscar,
This way:
This way:
elseif cModel == nil
cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()
MsgInfo( GETPROFSTRING( "Devices", cModel, "" ) )
::hDC := PRINTERDCFROMNAME( STRTOKEN( GETPROFSTRING( "Devices", cModel, "" ), 1, "," ), cModel, STRTOKEN( GETPROFSTRING( "Devices", cModel, "" ), 2, "," ) )
With:
cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()
MsgInfo( GETPROFSTRING( "Devices", cModel, "" ) )
The result is blank. Returns nothing.
Oscar Ribeiro
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
Oscar,
This is the current code for that else:
That should work for you, though you say that the selected printer does not remain selected all the app execution ?
This is the current code for that else:
::hDC := GetPrintDefault( GetActiveWindow() )
if ::hDC != 0
cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()
endifThat should work for you, though you say that the selected printer does not remain selected all the app execution ?
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,
Oscar Ribeiro
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
Oscar,
Where are you selecting the target printer ? From the preview itself ?
Linares,
We select one of two ways:
In the menu system using the command:
GetPrintDC (GetActiveWindow ())
Or before printing with the command:
PRINTERSETUP ()
Thanks,
Oscar Ribeiro
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
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
https://www.powerbasic.com/support/pbforums/showthread.php?t=15204
We need to migrate it to FWH
Yes. This is the way.
Oscar Ribeiro
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
Maurizio
www.nipeservice.com
www.nipeservice.com
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.
Oscar,
why don´t you use the TO <cPrinter> clause ?
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
why don´t you use the TO <cPrinter> clause ?
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
kind regards
Stefan
Stefan
Stefan,
Very good, many thanks
Many times we miss the simplest way to do things 
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,
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,
* 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#p152663Oscar Ribeiro
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
