PPT to PDF conversion

[venkat]

Hi,

I had writted macros for PPT to PDF file conversion in Excel.
Í created User Form in Excel and i am running macros form excel.

I am getting error while running the macros As " Object doesn't support
this property or method"

And here is the code.

'Please configure adobe pdf printer before using this macro
Sub Create_PDF_of_NotesView()
Dim ActivePresentation As Object
Dim appPPT As PowerPoint.Application
Set appPPT = ActivePresentation
'Dim ActivePresentation As Application
Dim RangeType As String, NumberOfCopies As String, Collate, OutputType,
PrintHiddenSlides, _
PrintColorType, FitToPage, FrameSlides As String, ActivePrinter As
Variant
'Dim ActivePresentation As Application
Set ActivePresentation = New PowerPoint.Application
' 'Set ActivePresentation = appPPT.Application
'Set MyObject = ActivePresentation
'Dim PrintOptions As Object
' With New PowerPoint.Application
With ActivePresentation.PrintOptions
.RangeType = ppPrintAll
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputNotesPages
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "Adobe PDF"
End With

ActivePresentation.PrintOut
MsgBox "The name of the active printer is " & _
Application.PrinterOptions
End Sub


How to solve this problem.

Regards,
venkat

 

[Jonathan West]

Hi Venkat

1. This group deals with VBA in Word, not PPT. You might like to repost to a
PPT group.

2. When you do so, you might like to indicate at which line the error
occurs.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Hi,

I had writted macros for PPT to PDF file conversion in Excel.
Í created User Form in Excel and i am running macros form excel.

I am getting error while running the macros As " Object doesn't support
this property or method"

And here is the code.

'Please configure adobe pdf printer before using this macro
Sub Create_PDF_of_NotesView()
Dim ActivePresentation As Object
Dim appPPT As PowerPoint.Application
Set appPPT = ActivePresentation
'Dim ActivePresentation As Application
Dim RangeType As String, NumberOfCopies As String, Collate, OutputType,
PrintHiddenSlides, _
PrintColorType, FitToPage, FrameSlides As String, ActivePrinter As
Variant
'Dim ActivePresentation As Application
Set ActivePresentation = New PowerPoint.Application
' 'Set ActivePresentation = appPPT.Application
'Set MyObject = ActivePresentation
'Dim PrintOptions As Object
' With New PowerPoint.Application
With ActivePresentation.PrintOptions
.RangeType = ppPrintAll
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputNotesPages
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "Adobe PDF"
End With

ActivePresentation.PrintOut
MsgBox "The name of the active printer is " & _
Application.PrinterOptions
End Sub


How to solve this problem.

Regards,
venkat