IMPRIMIR REPORTS VIA COMANDO NO FORMS6

[rcd_tech@hotmail.com]

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

[JLMANA]

Selecionar tudo

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;

[rcd_tech@hotmail.com]

Oracle Shutdown? Ta certo isso? Se não ta zuando com a minha cara não e esta querendo derrubar meu banco?

[JLMANA]

utilizo este comando para encerrar a sessão com o report, você pode inibir esta linha e

[rcd_tech@hotmail.com]

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.

[JLMANA]

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 :

Selecionar tudo

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);

[mcastelar]

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