Clipper On Line • Ver Tópico - Impressão e geração de PDF.

Impressão e geração de PDF.

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Impressão e geração de PDF.

Mensagempor rapazdarelva » 05 Nov 2008 21:50

Senhores boa noite. Confesso que ja procurei , e ou seja por burrice ou sei lá o q eu não consegui achar. Portanto depois de longos 17 dias venho pedir ajuda de vcs.

È o seguinte: Uso XHARBOUR+MINIGUI.

1-Estou apanhando para gerar relatório no quesito mostrar a iimpressora. Por exemplo no delphi fazemos os meios para que o relatório seja gerado logo após o resultado vai para tela. È isso que não estou conseguindo fazer, pelo xHarbour+minigui ele primeiro pede para escolher a impressão e depois sim que aparece o preview.

2-Gero o o relatório e na hora de escolher a impressora eu coloco como por exemplo o PDFCREATOR e tudo lindo gera oo pdf depois de pressionar o PRINT. Gostaria de saber se tem como gerar o PDF sem que usuário escolha a impressora. Resumindo, pressionou o botão para gerar o relatório ele ja gera direto o PDF sem pedir a impressora.

olha o exemplo que uso.

//INICIO DO PROGRAMA.
#include "Inkey.ch"
#include "MiniGui.ch"
#Include "F_Sistema.ch"

.
.
.
*---------------------------------------------------------------------------------------------------*
Function Imprime_CONSUMO_INDIVIDUAL()
local  dirimp:=GetCurrentFolder(), PAG, LIN

If Empty(nItem)
    MsgExclamation("Selecione um item para imprimir!",SISTEMA)
    Return(0)
endif

INIT PRINTSYS
SELECT BY DIALOG PREVIEW
set preview scale 2

IF HBPRNERROR>0
    msgstop("Erro na impressora!!!","Aviso")
    release printsys
    SetCurrentFolder(dirimp)
    RETURN
ENDIF

SET UNITS MM
define font "ft07"  name "Arial" size 7
define font "ft08" name "Arial" size 8
define font "ft08B" name "Arial" size 8 bold
define font "ft09" name "Arial" size 9
define font "ft09B" name "Arial" size 9 bold
define font "ft10B" name "Arial" size 10 bold
define font "ft10" name "Arial" size 10
define font "ft12B" name "Arial" size 12 bold //bold=negrita
define font "ft12" name "Arial" size 12 //bold=negrita
define font "ft14" name "Arial" size 14
define font "ft18" name "Arial" size 18
define pen "p0" style PS_SOLID width 1 color 0x000000
define pen "p1" style PS_DOT   width 1 color 0xFF0000
define pen "p3" style PS_SOLID width 1 color 0xBB0000
define pen "p2" style PS_NULL

select font "ft12"
select pen "p0"

set page orientation DMORIENT_PORTRAIT papersize DMPAPER_A4 font "ft12"
start page

sele &Arqu999
DBSetOrder(2)
DbGoTop()

Do While .NOT. Eof()
    select font "ft08"
    pag=0
    select font "ft09"
    @lin+3,11  say   tmp_prod to PRINT
    @lin+3,25  say   tmp_npro to PRINT
    @lin+3,82  say   tmp_ncor to PRINT
    total_pesos:=total_pesos+tmp_qtde
    LIN:=LIN+08
    SKIP
ENDDO
select font "ft08"
end page
end doc
Return(0)


Obrigado pela ajuda.

-------------------------------
Nota de Moderação (Toledo): mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: faq.php?mode=bbcode#f21
rapazdarelva
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 19
Data de registro: 11 Jun 2008 08:11
Cidade/Estado: sdasda
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Impressão e geração de PDF.

Mensagempor Daniel » 19 Nov 2008 12:07

ola

vc usa assim

INIT PRINTSYS
SELECT DEFAULT PREVIEW
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Avatar de usuário

Daniel
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 373
Data de registro: 13 Ago 2003 22:42
Cidade/Estado: Apucarana - PR
Curtiu: 0 vez
Mens.Curtidas: 36 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


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
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro