1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Urgente Enviar arquivo .doc para impressora via Progress

Discussão em 'Progress 4GL' iniciado por Alessandra Miranda, Abril 21, 2022.

  1. Alessandra Miranda

    Alessandra Miranda Sem Pontuação

    Olá,

    Gerei um relatório em Word em um diretório e preciso pegar este arquivo e enviar para impressora logo após a geração do mesmo. Pelo próprio programa que o gerou.
    Alguém pode me dar uma dica de como fazer isso? A ideia seria também excluir este arquivo após o envio para a impressora. Ele foi gerado a partir de um modelo RTF.

    Obrigada,
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Olá, muito ao grosso modo ....
    Código:
    define variable appWord as com-handle no-undo.
    
    create "word.Application" appWord no-error.
    if error-status:error then do:
        message "WORD NÃO ENCONTRADO"
            view-as alert-box info buttons ok.
    end.
    
    appWord:visible = false.
    appWord:Documents:Open('NOME DO ARQUIVO', false, true, false,"","",false,"","") no-error.
    appWord:ActivePrinter = session:printer-name.
    appWord:Selecion:WholeStory.
    appWord:Application:printOut.
    appWord:ActiveDocument:close(false).
    appWord:quit().
    
    
    Seria isso ...
  3. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    pra apagar o arquivo depois, usa o comando os-delete()

Compartilhe esta Página