✔ Programação GLOBAL®: VBA Powerpoint - Imprimindo Slides de uma apresentação - Use CreateObject to Print Slides From A Presentation

VBA Powerpoint - Imprimindo Slides de uma apresentação - Use CreateObject to Print Slides From A Presentation

Sempre temos a oportunidade de utilizarmos uma chamada Shell para a impressão de uma apresentação do MS Powerpoint usando o parâmetro / P. Mas talves você queira imprimir Slides específicos, que não podem ser alcançados com a chamada Shell.

Este exemplo usa a chamar CreateObject para criar uma instância do MS Powerpoint, abrir um arquivo e, em seguida, imprimi-lo. Pode usar este código a partir de qualquer aplicativo da suíte MS Office ou mesmo no VB para imprimir uma apresentação.

Sub PressPPT()
    Dim AppPPT As Object
    Set AppPPT = CreateObject("PowerPoint.Application")
   Let AppPPT.Visible = True

   ' Se você desejar esconder a janela do PowerPoint, configure como visible=true,

   ' além do parâmetro do comando OPEN.
    With AppPPT.Presentations.Open("c:\sample.ppt")
        DoEvents
    ' Use a propriedade .PrintOptions para especificar uma configuração adicional
    ' Set background printing off else, PowerPoint will terminate
    ' before printing is completed.
   Let .PrintOptions.PrintInBackground = False
   Let .PrintOut

   Let .PrintOptions.PrintInBackground = True

    End With
    AppPPT.Quit
    Set AppPPT = Nothing
End Sub