print dialog box for harbour project

[DP]

My program was clipper5.2e, I just convert it in HARBOUR . I need
PRINT DIALOG BOX like windows. can any one tell me harbour have any
function for print dialog box which i call from
my clipper programe (which is at present complie by harbour).

Pls tell me function name with syntex.

thanks in advance

debasis paul

[Massimo Belgrano]

You need 

WIN_PRINTEREXISTS
WIN_PRINTERSTATUS()     
WIN_PRINTERPORTTONAME()
WIN_PRINTERLIST()       
WIN_PRINTERGETDEFAULT() 
WIN_PRINTERSETDEFAULT() 
WIN_PRINTFILERAW()      

follow my untested sample

func main
local aPrinter := {}
local nPrt := 0
setmode(25,80)
aPrinter  := WIN_PRINTERLIST()
 nPrt := AChoice( 10,10,10 + Len(aPrinter ),70,aPrinter )

 set printer to  WIN_PRINTERPORTTONAME( nPrt)  

set printer to ( WIN_PRINTERGETDEFAULT ())

but you can also oPrinter := Win_Prn():New( cPrinter )

2011/11/24 DP <debasi...@gmail.com>

--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users

--
Massimo Belgrano

Delta Informatica S.r.l. (http://www.deltain.it/) (+39 0321 455962)
Analisi e sviluppo software per Lan e Web -  Consulenza informatica - Formazione

[Viktor Szakáts]

> set printer to ( WIN_PRINTERGETDEFAULT ())

This never worked in Harbour and never will.

Viktor

[Bernard Mouille]

Hello Paul,

Look in your Harbour folder :
CONTRIB\HBWIN\TESTS\testprn.prg

Bernard