Imprimir# Extrato

Conteúdo

# Declaração Print#

Exibe as cadeias de caracteres ou expressões numéricas especificadas no ecrã ou num ficheiro sequencial.

Utilize a instrução Put# para gravar dados num ficheiro binário ou aleatório. Utilize a instrução Write# para gravar dados num ficheiro de texto sequencial com caracteres delimitadores.

### Sintaxe:

    Print [#filenum,] expression1[{;|,} [Spc(number As Integer);] [Tab(pos As Integer);] [expression2[...]]

### Parâmetros:

filenum: Qualquer expressão numérica que contenha o número do ficheiro definido pela instrução Open para o respetivo ficheiro.

expressão: Qualquer expressão numérica ou de cadeia de caracteres a ser impressa. É possível separar várias expressões com um ponto e vírgula. Se forem separadas por uma vírgula, as expressões são recuadas até ao próximo ponto de tabulação. Os pontos de tabulação não podem ser ajustados.

número: Número de espaços a inserir pela função Spc.

pos: São inseridos espaços até à posição especificada.

Se uma vírgula ou um ponto e vírgula aparecerem depois da última expressão para serem impressos, o LibreOfficeDev Basic armazena o texto numa memória interna e continua a executar o programa sem imprimir. Quando é encontrada outra instrução para imprimir sem uma vírgula ou um ponto e vírgula no fim, todo o texto a ser impresso é impresso de imediato.

As expressões numéricas positivas são impressas com um espaço inicial. As expressões negativas são impressas com um sinal de menos. Se um dado intervalo for excedido por valores de vírgula flutuante, a respetiva expressão numérica é impressa em notação exponencial.

Se a expressão a imprimir exceder um certo comprimento, o ecrã será moldado automaticamente à próxima linha.

Pode inserir a função Tab, entre ponto e vírgula, entre os argumentos e avançar o resultado para uma posição específica ou pode utilizar a função Spc para inserir um número específico de espaços.

### Exemplo:

    Sub ExamplePrint
        Print "ABC"
        Print "ABC","123"
        i = FreeFile()
        Open "C:\Users\ThisUser\Temp.txt" For Output As i
        Print #i, "ABC"
        Close #i
    End Sub

    Sub ExamplePrint
        Print "ABC"
        Print "ABC","123"
        i = FreeFile()
        Open "~/temp.txt" For Output As i
        Print #i, "ABC"
        Close #i
    End Sub

Tópicos relacionados

Close Statement

Put# Statement

Open Statement

Write# Statement

Necessitamos da sua ajuda!