PDFVBASettings.ShowDialog

Function ShowDialog() As Boolean

The ShowDialog method displays the Publish To PDF dialog box. A Boolean value is returned.

The following code example displays the Publish To PDF dialog box. If the user chooses a bitmap compression method other than JPEG, a warning message is shown and JPEG compression is applied.

Sub Test() 
 Dim ps As PDFVBASettings 
 Set ps = ActiveDocument.PDFSettings 
 ps.Reset 
 If ps.ShowDialog Then Exit Sub 
 If ps.BitmapCompression <> pdfJPEG Then 
  MsgBox "You must use JPEG bitmap compression." 
  ps.BitmapCompression = pdfJPEG 
 End If 
 ps.JPEGQualityFactor = 150 
 ActiveDocument.PublishToPDF "C:\MyDocument.pdf" 
End Sub