Clipper On Line • Ver Tópico - marca Dágua com a WVW
Mudar para estilo Clássico
Outras bibliotecas visuais e IDEs para Harbour/xHarbour (xHGTK/HbWxW/GtWvT/GtWvW/WvWtools.etc)
Postar uma resposta

marca Dágua com a WVW

05 Set 2019 17:05

BOA tarde

usando a winprn32 para fazer relatórios gráficos ...

tem jeito de mandar uma imagem grande(tipo Marca Dágua) e depois fazer os relatório encima ?

para isso a imagem.bmp tem que ter alguma característica ou NÃO tem jeito de fazer isso ?

desde já agradeço

Paiva

marca Dágua com a WVW

05 Set 2019 20:08

Paiva, na falta de outras sugestõess, experimente manipular os valores da função: oWin32Bmp:draw( oWin32Prn, { 200, 400, 2000, 1500 } )
Código:
PROCEDURE Main
  LOCAL cFileName, oWin32Bmp, oWin32Prn

   oWin32Prn := Win32Prn():new() // default printer object
   IF .NOT. oWin32Prn:create()  // create device context
    Alert( "Unable to create device context for printer" )
    QUIT
   ENDIF

   cFileName := "TestImage.bmp"

   oWin32Bmp := Win32Bmp():new() // load bitmap file into memory
   IF .NOT. oWin32Bmp:loadFile( cFileName )
    Alert( "Unable to load bitmap file: " + cFileName )
    QUIT
   ENDIF

   // print bitmap image
   oWin32Bmp:draw( oWin32Prn, { 200, 400, 2000, 1500 } )

   // release GDI system resources of printer
   oWin32Prn:destroy()
RETURN

marca Dágua com a WVW

05 Set 2019 21:27

BOa noite

eu parametrizo na impressora l+c inicial e final....
o Problema e´que o relatório já é 1/2 folha sulfite

eles cortam no meio rs

o ideal seria tipo Marca dágua

se Não tiver jeito vou ver uma outra solucao

ob

Paiva
Postar uma resposta