Problem 1:
- Sorry, but I did not understand what I do to preserve the printer that was selected.
Problem 2:
- Another problem is that the view factor is not working and the magnifying glass distorts the image on a widescreen monitor.
Problem 3:
- If I change the printer button that makes it into the viewer, it does not print after.
Just to clarify standard Windows printer behavior.
I have not read this entire thread, so some of this may have already been mentioned. It took me some time to figure this all out by trial and error.
The "windows default printer" is selected automatically by any app when it opens and also remains the selected printer unless it it is changed within the app.
If an app selects a printer, it is then used within that app until the app is closed. This selection does not affect any other apps. And it does not affect the windows default printer. Of course, an app could override this behavior by saving and restoring it's own printer selections. This may or may not be advisable. I have used this occasionally when different reports needed to be sent to different printers (within the same app).
It is possible to change the windows default printer from within an app, but I would suggest never doing it. Doing so would mess up all other apps that are relying on the windows default printer (that was set via the Windows printer-setup routine).
You could provide the user the option to save the selected printer for use only within that app. Just save the printer model in a config file, then restore it whenever the program is run.
So, Oscar, if your app is loosing the selected printer, it would seem that FWH/(x)Harbour is doing it and it is not the Windows standard.
Regards,
James
James,
Thanks for your reply.
Before migrating to FWH13.08, I used the fwh12.07 and once selected a printer that is different from the standard Windows ward stood just inside the selected application and while it was open.
Now my system does not do that anymore and each report the user needs to select the printer again. This has caused me numerous complaints from my clients.
It seems to me that the Linares FWH13.09 resolved it in but I did not understand what should I change in my programs.
I await.
Enrico Maria Giordano wrote:Antonio,
Antonio Linares wrote:Enrico,
Do you mean that you have replaced:
else cPrinter := GetProfString( "windows", "device" , "" ) WriteProfString( "windows", "device", cModel ) SysRefresh() PrinterInit() ::hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() WriteProfString( "windows", "device", cPrinter ) SetPrintDefault( cPrinter ) // NEW !!! endif
with:
else ::hDC = PRINTERDCFROMNAME( STRTOKEN( GETPROFSTRING( "Devices", cModel, "" ), 1, "," ), cModel, STRTOKEN( GETPROFSTRING( "Devices", cModel, "" ), 2, "," ) ) endif
thanks
Yes, my friend.
EMG
METHOD New( cDocument, lUser, lPreview, cModel, lModal, lSelection, cFile ) CLASS TPrinter
local aOffset
local cPrinter
DEFAULT cDocument := "FiveWin Report" ,;
lUser := .f., lPreview := .f., lModal := .f., lSelection := .f.
if lUser
::hDC := GetPrintDC( GetActiveWindow(), lSelection, PrnGetPagNums() )
if ::hDC != 0
cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()
endif
elseif cModel == nil
::hDC := GetPrintDefault( GetActiveWindow() )
if ::hDC != 0
cModel = ::GetModel() + "," + ::GetDriver() + "," + ::GetPort()
endif
else
::hDC = PrinterDcFromName( , cModel, )
endif else
msginfo( cModel )
::hDC = PrinterDcFromName( , cModel, )
endif else
msginfo( cModel )
::hDC = PRINTERDCFROMNAME( STRTOKEN( GETPROFSTRING( "Devices", cModel, "" ), 1, "," ), cModel, STRTOKEN( GETPROFSTRING( "Devices", cModel, "" ), 2, "," ) )
endifStatic Function oaPrinterSetup() // Sem essa função, o FWH respeita a seleção apenas para o próximo relatório, voltando depois para o padrão do Windows.
GetPrintDC( GetActiveWindow() ) // Abre a tela para a seleção da impressora
cModel := PrnGetName() // Grava a última impressora selecionada pelo usuário
Return nilORibeiro wrote:Unfortunately, neither of the two alternatives work.
The "MsgInfo(CModel)" shows the printer selected by the user but prints to another printer that is default in Windows.
Mu Fwh is the last one.
Fwh13.09 rev2 don't have this fix?
ORibeiro wrote:Mu Fwh is the last one.
Fwh13.09 rev2 don't have this fix?
Oscar,
Here it is working fine using ::hDC = PrinterDcFromName( , cModel, )
Have you checked the valur of ::hDC after such line ?
The :hDC show me a number and prints to the "default printer on the windows" and not in the selected by the user.
What value has cModel ?
And what do you get for GetProfString( "Devices" ) ?
Oscar,
May I suggest a simple test program. First call printerSetup() so the user can select a printer. Then print a report (without passing a printer name). Then print the same report again (also without passing a printer name). Both reports should go to the same printer--the one the user selected. Make the test program as small as possible.
Let us know the results. And post the sample program code.
Regards,
James
