Boa Tarde Galera,
Estou desenvolvendo um sistema que precisa imprimir ordem de serviço, assim que o cara termina de cadastrar na ela a orem de serviço, ele deve clicar na impressorinha (botão) e a ordem de serviço deve ser impressa na impressora, não é preciso exibir o REPORTS é só imprimir.
Esta rodando em Windows e é Forms 6i Desktop.
Se alguém puder me ajudar, eu agradeço.
Obrigado.
att,
Ricardo Miranda
IMPRIMIR REPORTS VIA COMANDO NO FORMS6
-
- Rank: Programador Pleno
- Mensagens: 42
- Registrado em: Qui, 08 Set 2011 1:13 pm
- Localização: SP
PROCEDURE IMPRIME_REMESSA IS
PL_ID PARAMLIST;
BEGIN
PL_ID := GET_PARAMETER_LIST('TMPDATA');
IF NOT ID_NULL(PL_ID) THEN
DESTROY_PARAMETER_LIST(PL_ID);
END IF;
PL_ID := CREATE_PARAMETER_LIST('TMPDATA');
ADD_PARAMETER(PL_ID,'PARAMFORM',TEXT_PARAMETER,'NO');
ADD_PARAMETER(PL_ID,'ORACLE_SHUTDOWN',TEXT_PARAMETER,'YES');
RUN_PRODUCT(REPORTS,'nome_report', synchronous, runtime, filesystem,PL_ID,NULL);
END;
-
- Rank: Programador Pleno
- Mensagens: 42
- Registrado em: Qui, 08 Set 2011 1:13 pm
- Localização: SP
Oracle Shutdown? Ta certo isso? Se não ta zuando com a minha cara não e esta querendo derrubar meu banco?
utilizo este comando para encerrar a sessão com o report, você pode inibir esta linha e
-
- Rank: Programador Pleno
- Mensagens: 42
- Registrado em: Qui, 08 Set 2011 1:13 pm
- Localização: SP
Cara, esse código que você mandou ele somente abre o reports para visualização, não esta mandando imprimir.
Eu tive uma idéia, vê se você acha viável.
Eu pego um código que salva o reports como PDF e gero e salvo em PDF, sem abrir ele para visualização.
Ai via comando HOST eu mando imprimir ele, ou se não via comando HOST eu chamo uma BATH que faz isso.
Agora como mandar imprimir via prompt do DOS é uma questão.
Como salvar o reports como PDF é outra questão.
Eu tive uma idéia, vê se você acha viável.
Eu pego um código que salva o reports como PDF e gero e salvo em PDF, sem abrir ele para visualização.
Ai via comando HOST eu mando imprimir ele, ou se não via comando HOST eu chamo uma BATH que faz isso.
Agora como mandar imprimir via prompt do DOS é uma questão.
Como salvar o reports como PDF é outra questão.
entendo caso o report gera em pdf a intenção é apenas "guarda" para futuras pesquisas, e caso queira imprimir o usuário utiliza da própria ferramenta do pdf.
vê se o código abaixo ajuda :
vê se o código abaixo ajuda :
PL_ID := GET_PARAMETER_LIST('TMPDATA');
IF NOT ID_NULL(PL_ID) THEN
DESTROY_PARAMETER_LIST(PL_ID);
END IF;
PL_ID := CREATE_PARAMETER_LIST('TMPDATA');
ADD_PARAMETER(PL_ID,'PARAMFORM',TEXT_PARAMETER,'No');
ADD_PARAMETER(PL_ID,'DESTYPE',TEXT_PARAMETER,'File');
ADD_PARAMETER(PL_ID,'DESFORMAT',TEXT_PARAMETER,'pdf');
ADD_PARAMETER(PL_ID,'DESNAME',TEXT_PARAMETER,'local_gravar_arquivo_pdf\nome_report.pdf');
RUN_PRODUCT(REPORTS, 'nome_report', synchronous, runtime, filesystem,PL_ID,NULL);
-
- Rank: Estagiário Sênior
- Mensagens: 11
- Registrado em: Qui, 13 Jan 2011 3:01 pm
- Localização: RJ
Nada de comando DOS .. tem propriedade do reports para imprimir direto.
Não recordo-me agora corretamente mas acho que é em DESTYPE .. initial value = PRINTER
Veja se encontra algo sobre isto aqui no forum
Não recordo-me agora corretamente mas acho que é em DESTYPE .. initial value = PRINTER
Veja se encontra algo sobre isto aqui no forum
-
- Informação
-
Quem está online
Usuários navegando neste fórum: Nenhum usuário registrado e 14 visitantes