Instrução Print #
Escreve dados formatados para exibição para um arquivo sequencial.
Sintaxe
Imprimir#filenumber, [ outputlist ]
A sintaxe da instrução Print # tem estas partes:
| Parte | Descrição |
|---|---|
| númerodoarquivo | Obrigatório. Qualquer número de arquivo válido. |
| listadesaída | Opcional. Expressão ou lista de expressões para impressão. |
Configurações
As definições do argumentoda lista de saída são:
[{ Spc(n) | Tab [ (n) ]}] [ expressão ] [ poscaractere ]
| Configuração | Descrição |
|---|---|
| Spc(n) | Usado para inserir caracteres de espaço na saída, onde n é o número de caracteres de espaço a inserir. |
| Tab(n) | Usado para posicionar o ponto de inserção para um número de coluna absoluta onde n é o número da coluna. Use Tab sem nenhum argumento para posicionar o ponto de inserção no início da próxima zona de impressão. |
| expressão | Expressões numéricas ou expressões de cadeias de caracteres a imprimir. |
| poscaractere | Especifica o ponto de inserção para o próximo caractere. Use um ponto e vírgula para posicionar o ponto de inserção imediatamente depois do último caractere exibido. Use Tab(n) para posicionar o ponto de inserção para um número de coluna absoluta. Use Tab sem nenhum argumento para posicionar o ponto de inserção no início da próxima zona de impressão. Se poscaractere for omitido, o próximo caractere será impresso na próxima linha. |
Comentários
Os dados escritos com o Print # são geralmente lidos de um arquivo com Line Input # ou Input #.
Se você omitir listadesaída e incluir apenas um separador de lista depois de númerodoarquivo, uma linha em branco será impressa no arquivo.
Várias expressões podem ser separadas com um espaço ou um ponto e vírgula. Um espaço tem o mesmo efeito deum ponto e vírgula.
Para dados Boolianos, True ou False são impressos. As palavras-chave True e False não são traduzidas, independentemente da localidade.
Os dados de Date são escritos no arquivo usando o formato de data curta padrão reconhecido por seu sistema. Quando o componente de data ou hora estiverem faltando ou forem zero, somente a parte fornecida será escrito no arquivo.
Nothing será gravado no arquivo se os dados da listadesaída forem Empty. No entanto, se os dados da listadesaída forem Null, Null será escrito no arquivo.
Para Dados de erro , a saída é apresentada como Errorcódigo de erro. A palavra-chave Error não é traduzida, não importa o local.
Todos os dados escritos no arquivo que usam Print # são localizados; ou seja, os dados são devidamente formatados usando o separador decimal apropriado.
Como Print # escreve uma imagem dos dados no arquivo, você precisa delimitar os dados para que a impressão fique correta. Se você usar Tab sem argumentos para mover a posição de impressão para próxima zona de impressão, Print # também escreverá os espaços entre os campos de impressão no arquivo.
Observação
Caso no futuro você deseje ler os dados de um arquivo usando a instrução Input #, use a instrução Write # em vez da instrução Print # para escrever os dados no arquivo. O uso de Write # garante a integridade de cada campo de dados separado delimitando-o corretamente de modo que possa ler lido novamente com o uso de Input #. O uso de Write # também assegura que ele possa ser lido corretamente em qualquer localidade.
Exemplo
Este exemplo usa a instrução Print # para escrever dados em um arquivo.
Open "TESTFILE" For Output As #1 ' Open file for output.
Print #1, "This is a test" ' Print text to file.
Print #1, ' Print blank line to file.
Print #1, "Zone 1"; Tab ; "Zone 2" ' Print in two print zones.
Print #1, "Hello" ; " " ; "World" ' Separate strings with space.
Print #1, Spc(5) ; "5 leading spaces " ' Print five leading spaces.
Print #1, Tab(10) ; "Hello" ' Print word at column 10.
' Assign Boolean, Date, Null and Error values.
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True, False, Null, and Error are translated using locale settings of
' your system. Date literals are written using standard short date
' format.
Print #1, MyBool ; " is a Boolean value"
Print #1, MyDate ; " is a date"
Print #1, MyNull ; " is a null value"
Print #1, MyError ; " is an error value"
Close #1 ' Close file.
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.