10 Out 2006 10:29
02 Nov 2006 15:49
02 Nov 2006 21:55
03 Nov 2006 08:05
03 Nov 2006 11:42
03 Nov 2006 14:54
#include 'minigui.ch'
#include 'hbprinter.ch'
Function main()
INIT PRINTSYS
GET PRINTERS TO aprinters
Set QUALITY DMRES_HIGH
Set UNITS MM
SET PAPERSIZE DMPAPER_USER
Set user papersize width 215.9 height 215.9
imp:=1
SELECT PRINTER aPrinters[imp] PREVIEW
SET PREVIEW RECT 20,20,580,780
if HBPRNERROR>0
msginfo('Printer Error!')
return
endif
START DOC NAME 'TESTE'
START PAGE
@ 10,10 SAY 'ALTERANDO O TAMANHO DO PAPEL' FONT 'f3' TO PRINT
END PAGE
END DOC
04 Nov 2006 08:22
#include 'minigui.ch'
#include 'hbprinter.ch'
Function main()
DEFINE WINDOW F1 ;
AT 10,10 ;
WIDTH 600 HEIGHT 300 ;
TITLE 'HBPrinter Demo' ;
MAIN ;
FONT 'Arial' SIZE 10
DEFINE STATUSBAR
STATUSITEM '[x]Harbour Power Ready!'
END STATUSBAR
@5 ,5 BUTTON Button_1 CAPTION '&Print' ACTION print()
@50,5 BUTTON Button_2 CAPTION '&QUIT' ACTION {|| _ReleaseWindow ("F1" )}
END WINDOW
CENTER WINDOW F1
ACTIVATE WINDOW F1
Return Nil
return
function print()
INIT PRINTSYS
SELECT DEFAULT PREVIEW
Set QUALITY DMRES_HIGH
Set UNITS MM
SET PAPERSIZE DMPAPER_USER
Set user papersize width 215.9 height 215.9
if HBPRNERROR>0
msginfo('Printer Error!')
return
endif
START DOC NAME 'TESTE'
START PAGE
@ 10,10 SAY 'ALTERANDO O TAMANHO DO PAPEL' TO PRINT
END PAGE
END DOC
04 Nov 2006 13:09
05 Nov 2006 18:32
05 Nov 2006 20:23
06 Nov 2006 09:10
06 Nov 2006 14:33