Método Window.PrintOut (Word)
Imprime todo ou parte do documento exibido na janela especificada.
Sintaxe
expressão. PrintOut (Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight)
expressão Obrigatório. Uma variável que representa um objeto Window.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Background | Opcional | Variant | Defina como True para que a macro continue enquanto o Microsoft Word imprime o documento. |
| Append | Opcional | Variant | Defina como True para acrescentar o documento especificado como o nome de arquivo especificado pelo argumento OutputFileName. False para substituir o conteúdo da OutputFileName. |
| Range | Opcional | Variant | O intervalo de página. Pode ser qualquer constante WdPrintOutRange. |
| Outputfilename | Opcional | Variant | Se PrintToFile for True, este argumento especificará o caminho e o nome do arquivo de saída. |
| From | Opcional | Variant | O número de página inicial quando Range é definido como wdPrintFromTo. |
| To | Opcional | Variant | O número de página final quando Range é definido como wdPrintFromTo. |
| Item | Opcional | Variant | O item a ser impresso. Pode ser qualquer constante WdPrintOutItem. |
| Copies | Opcional | Variant | O número de cópias a ser impresso. |
| Pages | Opcional | Variant | Os números de páginas e intervalos de páginas a serem impressos, separados por vírgulas. Por exemplo, "2, 6-10" imprime a página 2 e as páginas 6 a 10. |
| PageType | Opcional | Variant | O tipo de páginas a serem impressas. Pode ser qualquer constante WdPrintOutPages. |
| PrintToFile | Opcional | Variant | True para enviar instruções de impressora para um arquivo. Certifique-se de especificar um nome de arquivo com OutputFileName. |
| Collate | Opcional | Variant | Ao imprimir várias cópias de um documento, True para imprimir todas as páginas do documento antes de imprimir a próxima cópia. |
| FileName | Opcional | Variant | O nome de arquivo e caminho do documento a ser impresso. Se esse argumento for omitido, o Word imprime o documento ativo. (Disponível somente com o objeto Application.) |
| ActivePrinterMacGX | Opcional | Variant | Este argumento está disponível somente no Microsoft Office Macintosh Edition. Para obter informações adicionais sobre este argumento, consulte a ajuda de referência da linguagem incluída com o Microsoft Office Macintosh Edition. |
| ManualDuplexPrint | Opcional | Variant | True para imprimir um documento de dois lados em uma impressora sem um kit de impressão duplex. Se esse argumento for True, os PrintBackground e as propriedades de PrintReverse serão ignoradas. Use as propriedades PrintOddPagesInAscendingOrder e PrintEvenPagesInAscendingOrder para controlar a saída durante a impressão duplex manual. Este argumento pode não estar disponível, dependendo do suporte a idioma (inglês americano, por exemplo) que você selecionou ou instalou. |
| PrintZoomColumn | Opcional | Variant | O número de página que você deseja que o Word ajuste horizontalmente em uma página. Pode ser 1, 2, 3 ou 4. Use com o argumento PrintZoomRow para imprimir várias páginas em uma única folha. |
| PrintZoomRow | Opcional | Variant | O número de páginas que você deseja que o Word ajuste verticalmente em uma página. Pode ser 1, 2 ou 4. Use com o argumento PrintZoomColumn para imprimir várias páginas em uma única folha. |
| PrintZoomPaperWidth | Opcional | Variantes | A largura para a qual você deseja que o Word dimensione páginas impressas, em twips (20 twips = 1 ponto; 72 pontos = 1 polegada). |
| PrintZoomPaperHeight | Opcional | Variantes | A altura para a qual você deseja que o Word dimensione páginas impressas, em twips (20 twips = 1 ponto; 72 pontos = 1 polegada). |
Exemplo
Este exemplo imprime uma página atual do documento ativo.
ActiveDocument.PrintOut Range:=wdPrintCurrentPage
Este exemplo imprime todos os documentos da pasta atual. A função Dir é usada para retornar todos os nomes de arquivos que possuem a extensão de nome de arquivo ".doc".
adoc = Dir("*.DOC")
Do While adoc <> ""
Application.PrintOut FileName:=adoc
adoc = Dir()
Loop
Este exemplo imprime as três primeiras páginas do documento na janela ativa.
ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="3"
Este exemplo imprime os comentários do documento ativo.
If ActiveDocument.Comments.Count >= 1 Then
ActiveDocument.PrintOut Item:=wdPrintComments
End If
Este exemplo imprime o documento ativo, ajustando seis páginas em cada folha.
ActiveDocument.PrintOut PrintZoomColumn:=3, _
PrintZoomRow:=2
Este exemplo imprime o documento ativo com 75% de seu tamanho real.
ActiveDocument.PrintOut _
PrintZoomPaperWidth:=0.75 * (8.5 * 1440), _
PrintZoomPaperHeight:=0.75 * (11 * 1440)
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.