Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Salvar para o forma...
 
Notifications
Clear all

Salvar para o formato prn

 
2024 - VBA & Macros
Post Recente por rjunior 7 anos atrás
8 Posts
4 Usuários
0 Reactions
2,817 Visualizações
RSS
 rjunior
(@rjunior)
Posts: 0
New Member
Topic starter
 

Bom dia!

Tenho um arquivo(xlsm) onde uma das planilhas preciso salvar como prn. Quando faço isso manualmente, ou seja, pelo salvar como e selecionando o tipo(prn), o arquivo é salvo normalmente. O meu problema ocorre quando utilizo uma macro para salvar o arquivo prn. Tudo acontece normalmente, exceto que, os campos com valores(números) vão para o prn substituindo a "vírgula" por "ponto" na casa decimal. Como o prn será importado por um programa da empresa, esses números precisam ser editados e alterados manualmente, o que não é interessante. Abaixo segue o código que salva no formato prn.

ActiveWorkbook.SaveAs Filename:="C:Teste.prn", FileFormat:=xlTextPrinter, CreateBackup:=False

Agradeço se alguém puder me ajudar.

 
Postado : 12/04/2017 7:38 am
 Romanha
(@romanha)
Posts: 0
New Member
 

Bom dia! Rjunior!

Seria muito interessante se voce disponibilizar o arquivo teste para podemos entender melhor o seu problema.

 
Postado : 13/04/2017 9:16 am
 EdsonBR
(@edsonbr)
Posts: 0
New Member
 

Bom dia, RJunior

Uma sugestão enquanto seu anexo não é disponibilizado: vc já tentou imprimir num arquivo usando uma impressora Genérico/Somente Texto? Em caso negativo, procure fazer um teste, talvez resolva sem outras complicações.

O procedimento passo-a-passo para instalar no Windows 10 seria:

[list=1]

  • Configurações > Dispositivos > "Adicionar uma impressora ou scanner", clique para adicionar e escolha "A impressora que eu quero não está na lista".[/*:m:3luhq381]
  • Na caixa de diálogo que se abre ("Localizar uma impressora por outras opções") escolha o último RadioButton "Adicionar uma impressora local ou de rede usando configurações manuais" e Avançar[/*:m:3luhq381]
  • Na caixa de diálogo que se abre ("Escolher uma porta de impressora"), em "Usar uma porta existente:", selecione "FILE: (Imprimir em arquivo)", Avançar[/*:m:3luhq381]
  • Na caixa de diálogo que se abre ("Instalar o driver de impressora"), em "Fabricante", escolher "Generic/Text Only" (ou "Genérico/Somente Texto"), Avançar[/*:m:3luhq381]
  • Na caixa de diálogo que se abre ("Digitar o nome de uma impressora"), dê um nome ou deixe como está sugerido, Avançar[/*:m:3luhq381]
  • Na caixa de diálogo que se abre ("Compartilhamento de impressora"), escolha se quer ou não compartilhar a impressora, Avançar[/*:m:3luhq381]
  • Na caixa de diálogo que se abre ("Você adicionou 'NomeDaImpressora' com êxito"), se quiser clique em "Imprimir página de teste" e escolha um local/nome para salvar o arquivo-teste "impresso"[/*:m:3luhq381]
  • Clique em concluir e está feito.[/*:m:3luhq381][/list:o:3luhq381]

    • Veja o resultado abrindo o arquivo de teste, digamos como o bloco de notas. Faça então um teste imprimindo sua pasta/planilha direto nessa impressora. A extensão padrão já é .prn.

     
    Postado : 13/04/2017 10:01 am
     Fernando Fernandes
    (@fernandofernandes)
    Posts: 43750
    Illustrious Member
     

    Vide tambem em http://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=5326

     
    Postado : 13/04/2017 10:21 am
     rjunior
    (@rjunior)
    Posts: 0
    New Member
    Topic starter
     

    Bom dia! Rjunior!

    Seria muito interessante se voce disponibilizar o arquivo teste para podemos entender melhor o seu problema.

    Boa tarde Romanha!

    Segue anexo:

     
    Postado : 13/04/2017 1:30 pm
     rjunior
    (@rjunior)
    Posts: 0
    New Member
    Topic starter
     

    Boa tarde Edson!

    Tentei imprimir direto na impressora como você sugeriu, mas o conteúdo do arquivo fica todo modificado quando abro o mesmo no bloco de notas. A página toda fica repleta de caracteres ASC.

     
    Postado : 17/04/2017 1:55 pm
     EdsonBR
    (@edsonbr)
    Posts: 0
    New Member
     

    RJunior, bom dia

    A essa altura vc já deve ter resolvido o problema. Caso não tenha, aí vai a solução: na linha do seu código, é só atribuir True ao argumento nomeado opcional "Local" no método SaveAs:

    ActiveWorkbook.SaveAs Filename:="C:Teste.prn", FileFormat:=xlTextPrinter, CreateBackup:=False, Local:=True

     
    Postado : 26/04/2017 10:18 pm
     rjunior
    (@rjunior)
    Posts: 0
    New Member
    Topic starter
     

    Bom dia Edson!

    Muito obrigado pela ajuda! Eu ainda não havia encontrado a solução. Atendeu perfeitamente.

     
    Postado : 05/05/2017 8:39 am
    Forum Jump:
      Tópico Anterior
    Próximo Tópico