marca Dágua com a WVW

Outras bibliotecas visuais e IDEs para Harbour/xHarbour (xHGTK/HbWxW/GtWvT/GtWvW/WvWtools.etc)

Moderador: Moderadores

paiva_dbdc
Usuário Nível 3
Usuário Nível 3
Mensagens: 342
Registrado em: 12 Nov 2012 09:58
Localização: uberlandia mg

marca Dágua com a WVW

Mensagem 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
lugab
Colaborador
Colaborador
Mensagens: 843
Registrado em: 19 Mai 2009 15:58

marca Dágua com a WVW

Mensagem 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
lugab
paiva_dbdc
Usuário Nível 3
Usuário Nível 3
Mensagens: 342
Registrado em: 12 Nov 2012 09:58
Localização: uberlandia mg

marca Dágua com a WVW

Mensagem 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
Responder