Bom dia pessoal, mais uma vez peço uma dica dos mestres
Como Já relatei aqui estou começando com a linguagem e na ide, utilizando minigui extend, já tenho algumas coisas prontas como cadastro, consultas etc, agora estou partindo para os primeiros relatórios, dei uma verificada nos exemplos de hbprint e miniprint, gostei mais deste ultimo, só que na opção salvar do miniprint ele salva uma imagem, tem como salvar em PDF?, tem algum exemplo salvando para pdf?, pois acho melhor do que salvar para uma imagem.
PDF Com MiniPrint
Moderador: Moderadores
-
Cavalo Marinho
- Usuário Nível 3
- Mensagens: 156
- Registrado em: 01 Ago 2009 10:01
- Localização: Aracaju/Se
-
Toledo
- Administrador
- Mensagens: 3133
- Registrado em: 22 Jul 2003 18:39
- Localização: Araçatuba - SP
- Contato:
PDF Com MiniPrint
Amigo, tanto a HBPrinter como a MiniPrint não tem opção para salvar em PDF. A única saída seria gerar o relatório já no formato PDF, usando a HaruPDF.
Veja um exemplo na pasta \SAMPLES\Advanced\HaruPDF da sua MiniGui Extended.
Abraços,
Veja um exemplo na pasta \SAMPLES\Advanced\HaruPDF da sua MiniGui Extended.
Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
-
LUCAS MACHADO
- Usuário Nível 1
- Mensagens: 25
- Registrado em: 31 Mai 2013 11:43
- Localização: RIO DE JANEIRO/RJ
PDF Com MiniPrint
Instale o PDF Creator ou outro semelhante no seu micro (ele cria uma impressora virtual) e na hora de emitir escolha esta impressora e salve o arquivo que ele salva como PDF.
PDF Com MiniPrint
Prezado Colega
Uma opção seria usar a versão HMG 3.4.0 pois neste caso a Miniprint salva em formato PDF.
E uma outra opção seria usar o Dosprinter 3.2 http://dosprinter.net/
Até logo.
Marcelo
Uma opção seria usar a versão HMG 3.4.0 pois neste caso a Miniprint salva em formato PDF.
E uma outra opção seria usar o Dosprinter 3.2 http://dosprinter.net/
Até logo.
Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
-
Cavalo Marinho
- Usuário Nível 3
- Mensagens: 156
- Registrado em: 01 Ago 2009 10:01
- Localização: Aracaju/Se
PDF Com MiniPrint
Bom dia, em primeiro lugar quero agradecer as resposta de todos, quanto a impressora virtual já utilizo a bastante tempo, mesmo no clipper, agora como estou migrando para harbour+minigui extend quero não depender tanto de programas de terceiros, vou dar uma olhada na hmg 3.4, quando será que minigui extend vai implementar esta funcionalidade?
-
Mario Mesquita
- Usuário Nível 4
- Mensagens: 613
- Registrado em: 08 Dez 2009 13:47
- Localização: Rio de Janeiro
PDF Com MiniPrint
Boa noite.
Eu fiz uma rotina para gerar um relatório com opção de saída em PDF. Acho que usei uma rotina exemplo ou algo assim. Sinceramente não lembro como fiz, mas funcionou e abre com o Adobe certinho...
Eu fiz uma rotina para gerar um relatório com opção de saída em PDF. Acho que usei uma rotina exemplo ou algo assim. Sinceramente não lembro como fiz, mas funcionou e abre com o Adobe certinho...
Código: Selecionar todos
// ProtCon - Lista LCs de Rainbow e Cral protestados em formato PDF.
#include "hmg.ch"
Function Main
Private xTotCon := 0
Set Date Brit //Ansi
Set Century Off //On
Use ProtCon
Zap
Append From Titulos for (Val(Codbanco) = 996 .or. Val(Codbanco) = 980) .and. ("PROT" $ Situacao .and. year(dtentrada)>2006) .and. "LC" $ TipoDoc
//Sele ProtCon
//dbgotop()
DEFINE WINDOW Win_1 ;
ROW 0 ;
COL 0 ;
WIDTH 500 ;
HEIGHT 400 ;
TITLE 'Relação de Protestos CRAL/RAINBOW' ;
WINDOWTYPE MAIN ;
ONINIT CreateReport()
DEFINE MAIN MENU
POPUP 'Relatórios'
ITEM 'Gerar Rainbow' ACTION Fil_R() .and. ( ExecuteReport('Report1',.t.,.t.,'Rainbow.pdf' ) , MsgInfo('Gerado (Rainbow.pdf) ') )
ITEM 'Gerar Cral ' ACTION Fil_C() .and. ( ExecuteReport('Report1',.t.,.t.,'Cral.pdf' ) , MsgInfo('Gerado (Cral.pdf) ') )
END POPUP
END MENU
END WINDOW
Win_1.Center
Win_1.Activate
Return
////
Function Fil_R() // Filtro titulos Rainbow
sele ProtCon
set filter to CodBanco = "0000980"
dbgotop()
xTotCon := 0
while ! eof()
++xTotCon
dbskip()
end
dbgotop()
////
Function Fil_C() // Filtro titulos Cral
sele ProtCon
set filter to CodBanco = "0000996"
dbgotop()
xTotCon := 0
while ! eof()
++xTotCon
dbskip()
end
dbgotop()
////
Function CreateReport
DEFINE REPORT Report1
* Report Layout ***********************************************
BEGIN LAYOUT
PAPERSIZE PRINTER_PAPER_A4
ORIENTATION PRINTER_ORIENT_PORTRAIT
END LAYOUT
* Header Band *************************************************
BEGIN HEADER
BANDHEIGHT 25
BEGIN LINE
FROMROW 23
FROMCOL 05
TOROW 23
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0,0,0 }
END LINE
BEGIN TEXT
EXPRESSION 'Serviço Registral'
ROW 05
COL 05
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 14
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Relação de Títulos Protestados - Período de 01/01/2007 a 31/12/2010'
ROW 10
COL 05
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION iif(Codbanco="0000980",'Rainbow Holdings','Cral')
ROW 15
COL 05
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Sacado'
ROW 22
COL 33
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'CPF/CNPJ'
ROW 22
COL 69
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Titulo'
ROW 22
COL 95
WIDTH 102
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Dt.Apontam.'
ROW 22
COL 110
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Protocolo'
ROW 22
COL 127
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Dt.Protesto'
ROW 22
COL 140
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Vencimento'
ROW 22
COL 155
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Livro/Folha'
ROW 22
COL 172
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Valor Doc.'
ROW 22
COL 190
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0,0,0 }
ALIGNMENT Left
END TEXT
/*
BEGIN PICTURE
VALUE 'hmg.jpg'
ROW 10
COL 189
WIDTH 11
HEIGHT 11
STRETCH .F.
END PICTURE
*/
END HEADER
* Detail Band *************************************************
BEGIN DETAIL
BANDHEIGHT 4 //6
BEGIN TEXT
EXPRESSION ProtCon->Sacado //subs(ProtCon->Sacado,1,35)
ROW 2
COL 5
WIDTH 40
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 7
FONTBOLD .T.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION iif(!empt(ProtCon->Cgc),ProtCon->Cgc,ProtCon->Cpf)
ROW 2
COL 65
WIDTH 11
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION (alltrim(ProtCon->TipoDoc)+" "+ALLTRIM(ProtCon->NumDoc))
ROW 2
COL 92
WIDTH 10
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION ProtCon->DtEntrada
ROW 2
COL 110
WIDTH 5 //10
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION ProtCon->Protocolo
ROW 2
COL 125
WIDTH 7
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION ProtCon->DtProtesto
ROW 2
COL 140
WIDTH 10
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION ProtCon->Vencimento
ROW 2
COL 155
WIDTH 70
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION (alltrim(ProtCon->Livro)+ "/" + ALLTRIM(str(ProtCon->Folhas,5,0)))
ROW 2
COL 170
WIDTH 5
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION transf(ProtCon->ValorDoc, "@e 9,999,999.99")
ROW 2
COL 185
WIDTH 5
HEIGHT 5 //10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END DETAIL
* Footer Band *************************************************
BEGIN FOOTER
BANDHEIGHT 27
BEGIN LINE
FROMROW 4
FROMCOL 10
TOROW 4
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
BEGIN TEXT
EXPRESSION 'Pagina No:' + Str(_PageNo)
ROW 7
COL 11
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION Date()
ROW 7
COL 177
WIDTH 30
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END FOOTER
* Summary Band ************************************************
BEGIN SUMMARY
BANDHEIGHT 50
BEGIN TEXT
EXPRESSION 'Total de Titulos: ' + Str(xTotCon) //Str(RecCount())
ROW 10
COL 20
WIDTH 100
HEIGHT 30
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .T.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END SUMMARY
END REPORT
Return
******