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

Referência: Shyam Pillai

Tags: Powerpoint, Slide, UDF, Shell, CreateObject, print, imprimir

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

  

bernardes@.com