Imprimir descrição
Grava dados formatados para exibição em um arquivo sequencial.
Sintaxe de impressão
| 1 | Imprimir #FileNumber, [OutputList] |
A instrução Print contém 2 argumentos:
Número do arquivo: Qualquer número de arquivo válido.
OutputList: Opcional. Uma ou mais expressões numéricas delimitadas por vírgulas ou expressões de string para gravar em um arquivo.
Exemplos de função de impressão do Excel VBA
| Primeiro nome | Último nome | Era | Gênero |
| Robert | Stepp | 20 | Masculino |
| Jennifer | Mariscal | 33 | Fêmea |
| David | Romig | 35 | Masculino |
| Carmel | Ingram | 26 | Fêmea |
Para gerar Range (“A1: D5”) em uma folha como a imagem acima para um arquivo, você pode usar o código a seguir.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Dim strFolder As StringDim strFile As StringDim dlgFolder As FileDialogDim rng como alcanceDefina dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Se dlgFolder.Show = True ThenstrFolder = dlgFolder.SelectedItems (1)OutroSair do SubFim seDefinir rng = intervalo ("A1: D5")'ImprimirstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngEnd SubSub PrintRangeToFile (strFile As String, rng As Range)Dim row como range, célula como rangeDim FileNumber As IntegerFileNumber = FreeFileAbra strFile para saída como #FileNumberPara cada linha em rng.RowsPara cada célula na linha. CélulasSe cell.Column = row.Cells.Count ThenImprimir #FileNumber, cellOutroImprimir #FileNumber, cell,Fim sePróxima célulaPróxima linhaFechar #FileNumberEnd Sub |
A saída para o arquivo “Print_Output.txt”:
| 12345 | Nome Sobrenome Idade SexoRobert Stepp 20 MasculinoJennifer Mariscal 33 FemininoDavid Romig 35 MasculinoCarmel Ingram 26 Feminino |
