FWH 13:09 Default Printer

User avatar
ORibeiro
Posts: 174
Joined: Mon Oct 20, 2008 6:33 pm
Location: Itu, Sao Paulo, Brazil

Re: FWH 13:09 Default Printer

Post by ORibeiro »

Thank Linares,

I await your tests.
_ Ribeiro
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
hua
Posts: 861
Joined: Fri Oct 28, 2005 2:27 am

Re: FWH 13:09 Default Printer

Post by hua »

What's the official solution to this? I'm facing the same issue after linking in FWH19.06

Here's a sample prg

Code: Select all

#include "FiveWin.ch"

function Main()
  local oWnd

  DEFINE WINDOW oWnd MENU AppMenu()

  ACTIVATE WINDOW oWnd

return nil
//----------------------------------------------------------------------------//
function AppMenu()
  LOCAL oMenu

  MENU oMenu

  MENUITEM "Print Report" ACTION PrnRpt()
  MENUITEM "Printer Setup" ACTION PrinterSetup()

  ENDMENU

RETURN oMenu
//----------------------------------------------------------------------
static function PrnRpt()
  local oPrn, oWnd

  PRINT oPrn NAME "This is a test" PREVIEW
     PAGE
        oPrn:Say( 20, 20, "This is a printersetup() test" )
     ENDPAGE
  ENDPRINT
return nil
 
Here's steps to see what I mean
1. From within app select a different printer than windows default printer (for example let's say it goes to a pdf writer)
2. Print report <will go to pdf writer>. Close preview
3. Print report again <will now go back to windows default printer>

Older FWH version would still output the printout to the pdf printer as long as the user doesn't exit the app

TIA
FWH 11.08/FWH 19.03
xHarbour 1.2.1 (Rev 6406) + BCC
Harbour 3.1 (Rev 17062) + BCC
Harbour 3.2.0dev (r1904111533) + BCC
Post Reply