MS Publisher File to JPEG

[Swi]

I know you can manually do this conversion in publisher but is there any way to expose this function in VB? A point in the right direction would be helpful. Thanks.

Swi

 

[Swi]

I have tried the following code but an getting the following error:

[red]Method 'SaveAsPicture' of object 'Page' failed[/red]

Private Sub Command1_Click()
Dim oPubApp As New Publisher.Application
With oPubApp
    .Open "c:\Publication1.pub"
    .ActiveDocument.Pages(1).SaveAsPicture "c:\Publication1.jpeg", pbPictureResolutionCommercialPrint_300dpi
    .ActiveDocument.Close
    .Quit
End With
Set oPubApp = Nothing
MsgBox "Save Complete!", vbInformation
End Sub

Any ideas? Thanks.

Swi

 

[Swi]

Got it.

Private Sub Command1_Click()
Dim oPubApp As New Publisher.Application
With oPubApp
    .ActiveWindow.Visible = False
    .Open "c:\Publication1.pub", True, False, pbDoNotSaveChanges
    .ActiveDocument.Pages(1).SaveAsPicture "c:\Publication1.[b][blue]jpg[/blue][/b]", pbPictureResolutionCommercialPrint_300dpi
    .ActiveDocument.Close
    .Quit
End With
Set oPubApp = Nothing
MsgBox "Save Complete!", vbInformation
End Sub

Swi