topic Custom path when printing to file? in Inventor Programming Forum

Custom path when printing to file?

jingying_1213 — Tue, 03 Jan 2023 07:31:38 GMT

Hi Experts,

I have below codes which works well when I print drawings to desktop.

However, now I want a custom path (like a dialog box I can browse the path I need) rather than a fixed path (desktop). Do you have any ideas/codes to share?

Thanks!

Sub Main()
	Dim oDoc As DrawingDocument = ThisApplication.ActiveDocument
	Dim PN As String = iProperties.Value("Project", "Part Number")
	
	Dim Desktop As String
	Desktop = "C:\Users\jxyp\Desktop"
	
	Dim FilePath As String
	FilePath = Desktop + "\" + PN + ".PDF"
	
	Dim oPrintManager As DrawingPrintManager
	oPrintManager = oDoc.PrintManager
	
	oPrintManager.Printer = "Microsoft Print to PDF"
	oPrintManager.AllColorsAsBlack = False
	oPrintManager.ColorMode = kPrintColorPalette
	oPrintManager.NumberOfCopies = 1
	oPrintManager.Orientation = kLandscapeOrientation
	oPrintManager.PaperSize = kPaperSizeA3
	oPrintManager.PrintRange = kPrintAllSheets
	oPrintManager.ScaleMode = kPrintBestFitScale
	
	oPrintManager.PrintToFile(FilePath)
	
End Sub

Re: Custom path when printing to file?

bradeneuropeArthur — Tue, 03 Jan 2023 08:28:33 GMT

Create a filedialog or folderdialog!

Re: Custom path when printing to file?

jingying_1213 — Tue, 03 Jan 2023 09:35:53 GMT

If possible, could you please modify my codes and add the FilaDialog related codes you mentioned?

Re: Custom path when printing to file?

bradeneuropeArthur — Tue, 03 Jan 2023 10:02:51 GMT

Of course.
Let me support you.

Re: Custom path when printing to file?

bradeneuropeArthur — Tue, 03 Jan 2023 13:34:15 GMT

Finally:

Sub Main() Dim oDoc As DrawingDocument = ThisApplication.ActiveDocument Dim PN As String = iProperties.Value("Project", "Part Number") Dim Desktop As String Desktop = "C:\Users\jxyp\Desktop" 'Dim FilePath As String 'FilePath = Desktop + "\" + PN + ".PDF" Dim oPrintManager As DrawingPrintManager oPrintManager = oDoc.PrintManager oPrintManager.Printer = "Microsoft Print to PDF" oPrintManager.AllColorsAsBlack = False oPrintManager.ColorMode = kPrintColorPalette oPrintManager.NumberOfCopies = 1 oPrintManager.Orientation = kLandscapeOrientation oPrintManager.PaperSize = kPaperSizeA3 oPrintManager.PrintRange = kPrintAllSheets oPrintManager.ScaleMode = kPrintBestFitScale Dim fn As String = PN + ".PDF" ThisApplication.CommandManager.PostPrivateEvent(Inventor.PrivateEventTypeEnum.kFileNameEvent,fn) Dim d As Inventor.FileDialog ThisApplication.CreateFileDialog(d) 'd.CancelError = True If Not d.CancelError = True d.DialogTitle = "Kit Save as pdf" d.Filter = "Pdf Files (*.pdf)|*.pdf" d.FileName=fn d.ShowSave If Not d.FileName = Nothing Then oPrintManager.PrintToFile(d.FileName) End If End If End Sub

Re: Custom path when printing to file?

jingying_1213 — Wed, 04 Jan 2023 03:14:59 GMT

Thanks so much, however, it appears below error when running your modified codes.

After adding "d.ShowOpen" before "d.ShowSave", then it runs well!

	d.FileName = fn
	d.ShowOpen
	d.ShowSave