Notifications

Clear all

Salvar para o formato prn

2024 - VBA & Macros

Post Recente por rjunior 8 anos atrás

8 Posts

4 Usuários

0 Reactions

2,833 Visualizações

RSS

rjunior

(@rjunior)

Posts: 6

Active 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: 104

Estimable Member

Bom dia! Rjunior!

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

Se a resposta foi últil, gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. canto superior.

" Aquele que habita no esconderijo do Altissimo, à sombra do Onipotente descansará. Salmos 91:1"

Atenciosamente.

Jason Romanha

Postado : 13/04/2017 9:16 am

EdsonBR

(@edsonbr)

Posts: 1057

Noble 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 13/04/2017 10:21 am

rjunior

(@rjunior)

Posts: 6

Active 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: 6

Active 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: 1057

Noble 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