È 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.
Código: Selecionar todos
//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
