O formulário apresentado abaixo refere-se ao código em VBA (Excel) apresentado adiante.
Este código refere-se à impressão de uma planilha em Excel de nome "Impressão", conforme mostra a figura abaixo. Pelos parâmetros passados em cada botão, serão impressos todos os dados que constarem nesta planilha, ou seja, não é a impressão de uma determinada "faixa de células".
No formulário do VBA os dois botões têm o nome de:
CommandButtonImprimeEmPDF
CommandButtonImprimeEmTXT
E no código há a rotina ImprimeOuSalvaEmArquivo
destinada à impressão ou salvamento (de forma genérica), sendo neste caso testada a impressão em arquivos.
Verifica-se no código que para o mesmo "Path" e "nome de arquivo" informados, conforme o evento "click" de cada botão, a extensão muda nos parâmetros passados para a rotina de impressão, de PDF para TXT respectivamente.
Ao acionar cada botão, são apresentadas as mensagens abaixo informando o local, o nome e a extensão dos arquivos gerados.
A figura abaixo mostra o resultado na pasta, onde os arquivos foram gerados corretamente quanto ao local, nome e extensão.
Ao abrir o arquivo em PDF ele está como previsto, porém o arquivo em TXT não, ou seja, ele não apresenta o texto da planilha como esperado (em formato texto).
O código segue abaixo:
Option Explicit
Private Sub CommandButtonImprimeEmPDF_Click()
'Salva impressão como arquivo em PDF
ImprimeOuSalvaEmArquivo "Impressão", _
"", _
True, _
"F:\Teste\TesteDeImpressao1.PDF", _
False, _
"", _
1, _
True
'Veja o significado das opções na rotina de impressão e salvamento
End Sub
Private Sub CommandButtonImprimeEmTXT_Click()
'Salva impressão como arquivo em TXT
ImprimeOuSalvaEmArquivo "Impressão", _
"", _
True, _
"F:\Teste\TesteDeImpressao1.TXT", _
False, _
"", _
1, _
True
'Veja o significado das opções na rotina de impressão e salvamento
End Sub
Private Sub ImprimeOuSalvaEmArquivo( _
ByVal NomeDaPlanilha As String, _
Optional ByVal FaixaParaImprimir As String = "", _
Optional ByVal ImprimirEmArquivo As Boolean = False, _
Optional ByVal CaminhoNomeExtensaoDoArquivo As String = "", _
Optional ByVal SelecionarImpressora As Boolean = False, _
Optional ByVal NomeInternoDaImpressora As String = "", _
Optional ByVal NumeroDeCopias As String = 1, _
Optional ByVal MensagemAoFinalDaImpressao = False)
Dim Planilha As Object
'O objeto Planilha assume a planilha selecionada
Set Planilha = Sheets(NomeDaPlanilha) 'Planilha anteriormente selecionada
'Ativa a planilha a salvar/imprimir
Planilha.Activate
'Se optou por selecionar a impressora
'e não solicitou salvar em arquivo
If SelecionarImpressora _
And Not ImprimirEmArquivo Then
Application.Dialogs(xlDialogPrinterSetup).Show
End If
'Se o nome da impressora não foi informado anteriormente
If NomeInternoDaImpressora = "" Then
'Pega o nome da impressora ativa
NomeInternoDaImpressora = ActivePrinter
End If
'Faixa a imprimir ou toda a planilha se vier com ""
Planilha.PageSetup.PrintArea = FaixaParaImprimir
'Imprime ou salva em arquivo
ActiveWindow.SelectedSheets.PrintOut _
Copies:=NumeroDeCopias, _
ActivePrinter:=NomeInternoDaImpressora, _
PrintToFile:=ImprimirEmArquivo, _
PrToFileName:=CaminhoNomeExtensaoDoArquivo
Beep
'Se solicitou mensagem de local e nome do arquivo salvo/impresso
If MensagemAoFinalDaImpressao Then
MsgBox "Local e Nome do Arquivo Salvo/Impresso: " _
& Chr(13) & Chr(13) & _
CaminhoNomeExtensaoDoArquivo
End If
End Sub
Testei alterando os nomes internos das impressoras que tenho, eles diferem dos nomes presentes na lista abaixo, foi preciso pegar esses nomes por meio de código pelo VBA após selecionar a impressora e usando um MsgBox, por exemplo. Conforme a figura abaixo, foram gerados arquivos TXT em vários formatos, menos no pretendido (não apresentei aqui esses testes, pois foram um para cada impressora da lista).
Uma observação: caso a opção de impressão em arquivo seja passada no respectivo parâmetro, não é apresentada a caixa de diálogo para a seleção da impressora mesmo que isso tenha sido solicitado pelo seu parâmetro. Caso queira testar a impressão para arquivos usando a seleção de impressora esta parte do código precisa ser adaptada.
Sei que há outras formas de gerar arquivos TXT, por exemplo, por meio de macro, mas gostaria de usar a rotina que apresentei já que ela apresenta várias possibilidades de tratar a impressão, como a inclusão dos títulos e modificação das margens (aqui a rotina está simplificada).
Em referência à instrução usada (ActiveWindow.SelectedSheets.PrintOut
) não
encontrei como gerar corretamente o arquivo TXT nem se isso é possível por meio dela.
Gostaria de saber se faltou indicar algo nesta instrução ou se ela não faz o que pretendo, gerar arquivos TXT de forma a apresentar a mesma disposição dos dados da planilha.