Printing Prblem in VB.Net using visio.Document object

[Murali]

I am getting this Error Message "when you create a postscript file you have
to send the host fonts".

I give the following parameter to Visio.Document.Printout method.

Printer name : Adobe PDF
PrintToFile : True
OutputFileName : "C:\Block.pdf"
etc:.

Please check the following code for example.

Dim strOutputPath As String = ""
Dim objApp As New Visio.InvisibleApp
Dim objDoc As Visio.Document
Try
' I am printing SVG file that is created by Microsoft Visio
Professional 2003
objDoc = objApp.Documents.Open("C:\Block.svg")
objDoc.Printer = "Adobe PDF"
objDoc.PrintFitOnPages = True
objDoc.PrintOut(Visio.VisPrintOutRange.visPrintCurrentPage, , ,
, objDoc.Printer, True, "C\:Block.pdf")
objApp.ActiveDocument.Saved = True
objApp.ActiveDocument.Close()
objApp.Quit()
objApp = Nothing
objDoc = Nothing
Catch ex As Exception
objApp.ActiveDocument.Close()
objApp.Quit()
objApp = Nothing
objDoc = Nothing
End Try

Please assit me.
Thank you

with regards,
murali