Converting XPS file to PDF

Question

Hello, 
I need to write program which automatically convert all xps files from foler into pdfs. One of my ideas is using pattern -> Opening XPS file, then printing it with "Adobe PDF" printer. 
Can you give me any help how I can write a program to do it? Or maybe you have another idea how I can do it? 
Thank you for your help. 
Best regards,
Robert

Answer 1

Hello, 
Thank you for your answer. I really appreciate your help, but I need to write this conversion part manually and put into my macro (which is making a lot of more stuff, and this will be one of it functionality). Do you have any idea how I can do it?
Basically, write I wrote before it just need to open a file, and print it with "Adobe PDF" printer. Unfortunately, I don't know how to do it.  
Hello,
For converting xps file to pdf, if your pc installed Office, then you could consider the way shared in the following thread.
https://social.msdn.microsoft.com/Forums/vstudio/en-US/4301147c-cc84-43ed-993f-691a8cb682b1/convert-xps-to-pdf-file-in-vs-2008?forum=vbgeneral
something like  (don't forget to reference Microsoft.Office.Interop.Excel)
Dim Exapp As New Microsoft.Office.Interop.Excel.Application
Dim ExWB As Microsoft.Office.Interop.Excel.Workbook = Exapp.Workbooks.Open("yourfilename")
ExWB.ExportAsFixedFormat(Microsoft.Office.Interop.Excel.XlFixedFormatType.xlTypePDF, "yourexportedfilename")
and
Hi narayanan_1983,
This article will tell you how to convert XPS file to PDF in vb.net:
http://www.aspose.com/docs/display/pdfnet/Convert%20XPS%20files%20to%20PDF%20format
From this article, we know that you could use  a class named
[{{XpsLoadOptions}}] which is used to initialize a LoadOptions object. Later, this object is passed as an argument during the
Document object initialization and it helps the PDF rendering engine to determine the source document's input format.
' Instantiate LoadOption object using XPS load option
Dim options As Aspose.Pdf.LoadOptions = New XpsLoadOptions()
' Create document object
Dim document As Aspose.Pdf.Document = New Aspose.Pdf.Document("D:\source.xps", options)
' Save the resultant PDF document
document.Save("D:\resultant.pdf")
If you have any other concern regarding this issue, please feel free to let me know.
Best regards,
Youjun Tang
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.
Regards,
Carl
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.