impressão com tgraph 2.0 ... (Resolvido)

[FARLEY RIBEIRO]

estou com problema ao imprimir a imagem do gráfico gerado com tgraph 2.0.

static function PrintGraph()
local oPrin := TPrinter():New( "Print" , .t. , .f. , "nome da impressora" , .f. )
oGraph:Save2Bmp("Graphics.bmp")
oPrin:StartPage()
oPrin:SayBitmap( 050 , 050 , "Graphics.bmp" , 2300 , 1600 )
oPrin:EndPage()
oPrin:End()
fErase("Graphics.bmp")
return(Nil)

alguém sabe como resolver?

grato

farley

não consegui anexar a imagem...

fw2.6/xharbour 0.99.50/Pelles/MyMake/Med

[sygecom]

Tche, não sei se no xharbour 0.99.50 tem...mas com a classe win32prn dah pra usar impressão de imagem sem mistério...inclusive postei um exemplo na seção codigo fonte:
https://pctoledo.org/forum/viewtopic.php?t=5764

Testa e ve se funciona...se não der prende o grito...

Abraços
Leonardo Machado

[FARLEY RIBEIRO]

Consegui resolver..
mudei a classe de impressão.. e alterei os parâmetros iniciais.

static function PrintGraph2()
local oPrn
oGraph:Save2Bmp("Graphics.bmp")
PRINTER oPrn from user PREVIEW
if Empty( oPrn:hDC )
msginfo( "Impressora não está pronta ou instalada!!!" )
return nil
endif
PAGE
oPrn:SayBitmap( 1 , 1 , "Graphics.bmp" , 2300 , 1600 )
ENDPAGE
ENDPRINT
return nil

grato

FARLEY

fw2.6/xharbour 0.99.50/Pelles/MyMake/Med