Clipper On Line • Ver Tópico - marca Dágua com a WVW

marca Dágua com a WVW

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

Moderador: Moderadores

 

marca Dágua com a WVW

Mensagempor paiva_dbdc » 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
paiva_dbdc
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 215
Data de registro: 12 Nov 2012 08:58
Cidade/Estado: uberlandia mg
Curtiu: 0 vez
Mens.Curtidas: 2 vezes

marca Dágua com a WVW

Mensagempor lugab » 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 } )
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
lugab
Colaborador

Colaborador
 
Mensagens: 861
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 37 vezes

marca Dágua com a WVW

Mensagempor paiva_dbdc » 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
paiva_dbdc
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 215
Data de registro: 12 Nov 2012 08:58
Cidade/Estado: uberlandia mg
Curtiu: 0 vez
Mens.Curtidas: 2 vezes




Retornar para Outras Bibliotecas Visuais e IDEs

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro