Impressão de imagens

[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

[sygecom]

Provavelmente a dimensão da Imagem esta errada, por isso do quadro preto. Quais as dimensões da imagem ?

[Vlademir]

Em tela utilizo este código, e a imagem sai perfeita.

A dimensão da imagem é 205 x 165

Código: Selecionar todos

@ 20,20 IMAGE "logo.jpg"	SIZE  200,150

[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

[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

[Vlademir]

E para imprimir ????

[Mário Isa]

só visualizar.....

[esbasso]

voce tem de usar a classe win32prn do xharbour
veja METHOD DrawBitMap(oBmp)