Clipper On Line • Ver Tópico - impressão com tgraph 2.0 ... (Resolvido)

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

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

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

Mensagempor FARLEY RIBEIRO » 06 Ago 2007 10:07

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
Editado pela última vez por FARLEY RIBEIRO em 24 Out 2007 07:55, num total de 1 vezes
Borland BCC(5.51)/PellesC(5.01)/Fivewin(2.6)/xHarbour.org(0.99.50)/Med(3.02)/DBFNTX/DBFCDX /WvWToools(0.83)
Avatar de usuário

FARLEY RIBEIRO
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 82
Data de registro: 24 Jul 2007 10:26
Cidade/Estado: MONTES CLAROS-MG
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor sygecom » 06 Ago 2007 12:34

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:
http://www.pctoledo.com.br/forum/viewtopic.php?t=5764

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

Abraços
Leonardo Machado
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7006
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Impressão gráfico

Mensagempor FARLEY RIBEIRO » 08 Ago 2007 10:07

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
Borland BCC(5.51)/PellesC(5.01)/Fivewin(2.6)/xHarbour.org(0.99.50)/Med(3.02)/DBFNTX/DBFCDX /WvWToools(0.83)
Avatar de usuário

FARLEY RIBEIRO
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 82
Data de registro: 24 Jul 2007 10:26
Cidade/Estado: MONTES CLAROS-MG
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro