Saves a page to a picture file.
expression.SaveAsPicture(FileName)
expression Required. An expression that returns one of the objects in the Applies To list.
FileName Required String. The path and file name of the new picture created.
This example saves the first page in the active publication as a JPEG picture file.
Sub SavePageAsPicture()
ActiveDocument.Pages(1).SaveAsPicture _
FileName:="C:\My Pictures\NewPict.jpg"
End Sub