Impressão para RechEdit. Como fazer?

[jfaguiar]

Olá pessoal.

Tem alguma forma de enviar uma impressao para um arquivo formato RichEdit?

Grato

João

[jfaguiar]

Olá pessoal.

Tem alguma forma de enviar uma impressao para um arquivo formato RichEdit?

Grato

João

[gvc]

:print()

:preview()

Aproveita e dá uma olhada no arquivo:

\FWHxxx\samples\testrtf.prg

Editado por - gvc on 19/03/2010 17:52:17

[jfaguiar]

Olá GVC.

Muito obrigado pela atenção.

Você não tem um exemplozinho me enviar?

joaosiscom@hotmail.com

Grato

[gvc]

Já tem esse que eu postei que esta na pasta samples e tem mais outro lá tb. Ambos funcionam.

[jaguiar]

Olá galera.

Achei muito interessante essa classe, mas cofesso a vocês que sou zera à esquerda em RicEdit. Tudo que preciso saber é a sintaxe do richedit em relação à TPrint. Por exemplo, o que devo mudar no fonte abaixo para enviar para richEdit?

PRIVATE oPrn,oFont,nTam, nLen, nTamPag, nTamRel,aCOL,nPROW

PRINT oPrn NAME "Impressao de Pedido de Venda Nº "+STR(ARQCAD->PEDORC,6) PREVIEW MODAL FROM USER

oPrn:SetPage(9) // 1=Carta 9=A4

DEFINE FONT oFONTCB1 NAME "ARIAL" SIZE 30,26 BOLD OF OPRN

DEFINE FONT oFONTDET NAME "ARIAL" SIZE 27,10 BOLD OF OPRN

DEFINE FONT oFont NAME "ARIAL" SIZE 27,10 OF oPrn

DEFINE PEN oPen WIDTH 2 OF oPrn

nCOLE := 6

nPAG := 0

DbSelectArea("TMPDETAL")

DbGoTop()

DO WHILE !EOF()

ResLinha := oPrn:nLogPixely()/2.54

ResColuna := oPrn:nLogPixelx()/2.54

PAGE

nPROW := 0 // En

++ nPAG

MBox(0.90,0.90,26.0,20)

oPrn:SayBitMap( 1.00 * ResLinha, 1.00 * ResColuna,;

"&cDRIVE\SISCOM\BITMAPS\LogoGradial.bmp",;

08.40 * ResLinha, 7.10 * ResColuna ) // 8.40 3.10

MBox(4.60,0.90,4.61,20) // linha hoprizontal

oPrn:SetFont(oFontCb1)

oPrn:CharSay(PROWW(06.1),nCOLE, "PEDIDO DE VENDA No. "+ STR(ARQCAD->PEDORC,6) )

oPrn:CharSay(PROWW(),nTamRel," ","D")

//

oPrn:SetFont(oFONTDET)

oPrn:CharSay(PROWW(11),nCOLE,"EMISSÃO:")

oPrn:CharSay(PROWW( ),17,NOVADATA(DATE()) )

//oPrn:CharSay(PROWW( ),65,"Vendedor: " +STRZERO(ARQCAD->PEDVND,3) + " "+;

// TRIM(ARQFUNC->NOME))

oPrn:CharSay(PROWW(),nTamRel," ","D")

oPrn:CharSay(PROWW(1),nCOLE, "CLIENTE:")

oPrn:CharSay(PROWW( ),17, TRIM(cNOMCLI)+" "+STR(ARQCAD->PEDCLI,6) )

oPrn:CharSay(PROWW(),nTamRel," ","D")

...

ENDPAGE

ENDDO

ENDPRINT

id=code>id=code>

[gvc]

Não tive tempo de montar ainda, mas dá para ir pensando em como trabalhar com isso.

InsertPicture Inserts an image of BMP, DIB or ICO format resizing it to the specified sizes

InsertPictureFile Inserts an image of one of the formats supported by TImage class

InsertBitmap Inserts a bitmap resizing it to the specified sizes

SetFontName Sets used font name

SetFontSize Sets used font size

SetAlign Sets the alignment mode for the current paragraph

SetAttribute Sets the current attributes

SetAutoUrlDetect Activates or deactivates auto URL detect

SetBold Activates or deactivates bold mode

SetItalic Activates or deactivates italic mode

SetUnderline Activates or deactivates underline mode

SetStrikeOut Activates or deactivates strikeout mode

SetBkGndColor Sets the background color

SetCharFormat Sets the font to use Parameter: oFont: font object

insertrtf