Página 1 de 1
Impressão de imagens
Enviado: 24 Jun 2008 17:06
por Vlademir
Como faço para imprimir uma imagem.
Uso a impressão desta forma:
Código: Selecionar todos
#include "windows.ch"
#include "guilib.ch"
#include "common.ch"
#include "paths.ch"
#include "Inkey.ch"
static oPrinter, oFont, nLinha, nPagina
function Relatorio()
Local nImpresso:=0
INIT PRINTER oPrinter
IF oPrinter == Nil
return nil
ENDIF
oFont := oPrinter:AddFont( "Times New Roman",5 )
oPrinter:SetMode( 1 )
oPrinter:StartDoc( .T. )
nPagina:=0
oBmp := HBitmap():addfile( "logo.bmp", NIL ) // oBmp := HBitmap():addfile( "logo.jpg", NIL )
oPrinter:StartPage()
oPrinter:SetFont( oFont )
oPrinter:Bitmap( 5,5,40,50,, oBmp )
nPagina++
oPrinter:Say( "Logo", 6,5.5,200,30,,oFontUsina )
oPrinter:Say( transform( nPagina,"@e 9,999"), 190,5.5,179,132,,oFont4 )
oPrinter:Say( "Documentos",95,10,250,132,,oFontTitulo )
quando executo, ao invés de sair a figura, sai apenas um quadrado preto.
indiferente utilizando bmp ou jpg
Re: Impressão de imagens
Enviado: 17 Jul 2008 20:18
por sygecom
Provavelmente a dimensão da Imagem esta errada, por isso do quadro preto. Quais as dimensões da imagem ?
Re: Impressão de imagens
Enviado: 18 Jul 2008 08:26
por Vlademir
Em tela utilizo este código, e a imagem sai perfeita.
A dimensão da imagem é 205 x 165
Re: Impressão de imagens
Enviado: 04 Ago 2008 13:59
por Mário Isa
Desculpem entrar aqui também assim depois.
Eu gostaria de apenas exibir uma imagem na tela.
O que eu poderia mudar no código abaixo apenas para exibir uma imagem .JPG no canto superior direito em 1024x768. Digamos que eu tenha uma imagem chamada f01.jpg.
Código
#include "windows.ch"
#include "guilib.ch"
#include "common.ch"
#include "paths.ch"
#include "Inkey.ch"
static oPrinter, oFont, nLinha, nPagina
function exibir()
Local nImpresso:=0
oFont := oPrinter:AddFont( "Times New Roman",5 )
oBmp := HBitmap():addfile( "logo.bmp", NIL ) // oBmp := HBitmap():addfile( "logo.jpg", NIL )
@ 1,79 Say oBmp
mas para isso eu tenho que abrir uma janela e dentro dela exibir.
e a cada vez que a .JPG fosse atualizada eu gostaria de trocar.
ou seja , eu faria:
if date & time # ultimodata&time
refresh()
end
Mário
Re: Impressão de imagens
Enviado: 05 Ago 2008 12:58
por esbasso
Afinal voce quer mostrar na tela ou imprimir.
Baixe esta IDE www.engersoft.com.br\download\util\designer.zip, crie um form novo adicione o objeto bitmap va no inspector clique em bitmap, selecione uma figura e veja na tela.
Depois visialize o codigo e veja como se faz.
Para visualizar o codigo va no menu VIEW
Re: Impressão de imagens
Enviado: 07 Ago 2008 08:25
por Vlademir
E para imprimir
????
Re: Impressão de imagens
Enviado: 07 Ago 2008 13:39
por Mário Isa
só visualizar.....
Re: Impressão de imagens
Enviado: 07 Ago 2008 15:09
por esbasso
voce tem de usar a classe win32prn do xharbour
veja METHOD DrawBitMap(oBmp)