4b0774530b
* contrib/hbwin/hbwin.ch
* contrib/hbwin/win_prn2.c
+ Added support for server name in WIN_PRINTERLIST() (GETPRINTER())
* contrib/hbwin/win_prn2.c
* contrib/hbwin/win_prn3.c
* contrib/hbwin/legacycp.c
* ChangeLog
* Some renaming, to keep all functions in the WIN_PRINT*() namespace.
Prev entry updated.
* contrib/hbwin/tests/testprn.prg
* contrib/hbwin/tests/testprn2.prg
* contrib/hbwin/tests/testprn3.prg
* contrib/hbwin/tests/testprn4.prg
* Updated tests to use new function names.
41 lines
922 B
Plaintext
41 lines
922 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
LOCAL nPrn := 1
|
|
LOCAL cFileName := Space( 40 )
|
|
LOCAL aPrn := WIN_PRINTERLIST()
|
|
LOCAL GetList := {}
|
|
|
|
CLS
|
|
|
|
IF Empty( aPrn )
|
|
Alert("No printers installed - Cannot continue")
|
|
QUIT
|
|
ENDIF
|
|
|
|
DO WHILE nPrn != 0
|
|
CLS
|
|
@ 0, 0 SAY "win_PrintFileRaw() test program. Choose a printer to test"
|
|
@ 1, 0 SAY "File name" GET cFileName PICT "@!K"
|
|
READ
|
|
@ 2, 0 TO MaxRow(), MaxCol()
|
|
nPrn := AChoice( 3, 1, MaxRow() - 1, MaxCol() - 1, aPrn, .T.,, nPrn )
|
|
IF nPrn != 0
|
|
PrnTest( aPrn[ nPrn ], cFileName )
|
|
ENDIF
|
|
ENDDO
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE PrnTest( cPrinter, cFileName )
|
|
|
|
IF Empty( cFileName )
|
|
hb_MemoWrit( cFileName := "_hbtest.prn", "Hello World!" + Chr( 12 ) )
|
|
ENDIF
|
|
|
|
Alert( "win_PrintFileRaw() returned: " + hb_ntos( WIN_PRINTFILERAW( cPrinter, cFileName, "testing raw printing" ) ) )
|
|
|
|
RETURN
|