Kapiaba, boa tarde:
Segue abaixo o Código!
#include "fivewin.ch"
FUNCTION CorelInvoice()
LOCAL oPrn, oFont, oIni, oPrinter
local n := 100, nLineas := 10, nRow, nCol
PRINTER oPrn //PREVIEW
DEFINE FONT oFont NAME "Times New Roman" SIZE 0,-12 OF oPrn
oPrn:SetFont(oFont)
PAGE
oPrn:ImportWMF("invoice.Wmf")
oPrn:CmSay(4.3, 1.7 , "Computer Associates") // company name
oPrn:CmSay(5.5, 1.7 , "Somewhere in U.S.A.") // adress
oPrn:CmSay(7 , 1.7 , "0001") // reference
nRow := 7
DO WHILE nLineas > 0 .AND. N > 0
oPrn:CmSay(nRow , 4.2 , "Software consulting") // description
oPrn:CmSay(nRow ,18.5 , "0") // price
nLineas--
n--
nRow += (oFont:nHeight*10*oPrn:nVertRes()/oPrn:nVertSize())
ENDDO
nLineas := 10
IF N < 0
oPrn:CmSay(16 ,18.5 , "0") // total
ENDIF
ENDPAGE
ENDPRINT
oFont:End()
Msginfo("Word done, look at your printer")
RETURN NIL
Obs: Se utilizo o arquivo INVOICE.WMF que veio originalmente como exemplo, funciona OK; mas se tento alterá-lo pelo Corel 11, o programa acima passa a dar erro: Operação ilegal.
Grato!
Rodrigues
Clipper5.2d+Blinker4.10+FW1.9.2