FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour FWH 13:09 Default Printer
Posts: 187
Joined: Mon Oct 20, 2008 06:33 PM
Re: FWH 13:09 Default Printer
Posted: Mon Nov 18, 2013 12:11 PM

Thank Linares,

I await your tests.

Oscar Ribeiro

OASyS Informática

Fwh18.02 + xHarbour 1.2.3 + Bcc72
Posts: 1096
Joined: Fri Oct 28, 2005 02:27 AM
Re: FWH 13:09 Default Printer
Posted: Mon Jul 29, 2019 09:11 AM
What's the official solution to this? I'm facing the same issue after linking in FWH19.06

Here's a sample prg
Code (fw): Select all Collapse
#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

Continue the discussion