Compartilhar via

Função Spc

  • Artigo

Utilizado com a instrução Print # ou o método Print para posicionar a saída.

Sintaxe

Spc(n)

O argumenton necessário é o número de espaços a inserir antes de apresentar ou imprimir a expressão seguinte numa lista.

Comentários

Se n for inferior à largura da linha de saída, a próxima posição de impressão segue imediatamente o número de espaços impressos. Se n for maior do que a largura da linha de saída, spc calcula a próxima posição de impressão com a fórmula: currentprintposition + (nLarguramod).

Por exemplo, se a posição de impressão atual for 24, a largura da linha de saída for 80 e especificar Spc(90), a impressão seguinte começará na posição 34 (posição de impressão atual + o resto de 90/80). Se a diferença entre a posição de impressão atual e a largura da linha de saída for inferior a n (ou nLargura mod), a função Spc salta para o início da linha seguinte e gera espaços iguais a n - (largura - atualprintposition).

Observação

Certifique-se de que as colunas tabulares são largas o suficiente para acomodar letras largas.

Quando utiliza o método Imprimir com um tipo de letra proporcionalmente espaçado, a largura dos carateres de espaço impressos através da função Spc é sempre uma média da largura de todos os carateres no tamanho do ponto do tipo de letra escolhido. No entanto, não existe nenhuma correlação entre o número de carateres impressos e o número de colunas de largura fixa que esses carateres ocupam. Por exemplo, a letra maiúscula W ocupa mais do que uma coluna de largura fixa e a letra minúscula i ocupa menos de uma coluna de largura fixa.

Exemplo

Este exemplo utiliza a função Spc para posicionar a saída num ficheiro e na janela Imediato.

' The Spc function can be used with the Print # statement.
Open "TESTFILE" For Output As #1    ' Open file for output.
Print #1, "10 spaces between here"; Spc(10); "and here."
Close #1    ' Close file.

A seguinte instrução faz com que o texto seja impresso na janela Imediato (utilizando o método Imprimir ), precedido por 30 espaços.

Debug.Print Spc(30); "Thirty spaces later..."

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.