Printing to Distiller

[John]

I'm busy converting a Visio vba procedure to VB.NET this morning. My latest
problem is printing the document to Distiller (which worked fine in VBA).
It's getting caught up on the following line (and unfortunately I don't get
to see the ex error as I get an error message from the print queue app and
Visio stops responding! Any clues?):

vDoc.PrintOut(VisPrintOutRange.visPrintFromTo, 1, fPgCount, , "Acrobat
Distiller")

Thanks

John

PS - I've not got a reference to Distiller in the .NET app (just incase
that's important.....)

Sub PrintForegroundPages(ByVal vDoc As Document)

Try

Dim fPgCount As Integer = 0 'Foreground page count

Dim vsoPages As Pages

Dim vsoPage As Page

Dim intCounter As Integer

'Get the Pages collection.

vsoPages = vDoc.Pages

'Iterate through the collection.

For intCounter = 1 To vsoPages.Count

'Retrieve the Page object at the current index.

vsoPage = vsoPages(intCounter)

'Check whether the current page is a background page.

If vsoPage.Background = False Then

fPgCount = fPgCount + 1

End If

Next intCounter

'Print out foreground pages

vDoc.PrintOut(VisPrintOutRange.visPrintFromTo, 1, fPgCount, , "Acrobat
Distiller")

Catch ex As Exception

System.Windows.Forms.MessageBox.Show(ex.Message)

End Try

End Sub