FWH 13:09 Default Printer

User avatar
ORibeiro
Posts: 187
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.
Oscar Ribeiro
OASyS Informática
Fwh18.02 + xHarbour 1.2.3 + Bcc72
hua
Posts: 1076
Joined: Fri Oct 28, 2005 2:27 am
Has thanked: 1 time
Been thanked: 1 time

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 | Expand


#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.12
BCC5.82/BCC7.3
xHarbour/Harbour
Post Reply