Página 1 de 1

marca Dágua com a WVW

Enviado: 05 Set 2019 17:05
por paiva_dbdc
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

Enviado: 05 Set 2019 20:08
por lugab
Paiva, na falta de outras sugestõess, experimente manipular os valores da função: oWin32Bmp:draw( oWin32Prn, { 200, 400, 2000, 1500 } )

Código: Selecionar todos

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

Enviado: 05 Set 2019 21:27
por paiva_dbdc
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