Your Products have been synced, click here to refresh
Sub main()
Dim pcapp As Object
Dim pcpart As Object
Dim ew As Object
Dim rw As Object
Set pcapp = createobject("pcdlrn.application")
Set pcpart = pcapp.activepartprogram
Set rw = pcpart.reportwindow
rw.FullReportMode
rw.RefreshReport
Set ew = pcpart.editwindow
ew.SetPrintOptionsEx 2,0,3,0,"C:\Temp\Test123.pdf",1,0
rw.RefreshReport
rw.printreport
ew.SetPrintOptionsEx 0,0,3,0,"C:\Temp\Test123.pdf",1,0
End Sub
Sub main()
Dim pcapp As Object
Dim pcpart As Object
Dim ew As Object
Dim rw As Object
Set pcapp = createobject("pcdlrn.application")
Set pcpart = pcapp.activepartprogram
Set rw = pcpart.reportwindow
rw.FullReportMode
rw.RefreshReport
Set ew = pcpart.editwindow
ew.SetPrintOptionsEx 2,0,3,0,"C:\Temp\Test123.pdf",1,0
rw.RefreshReport
rw.printreport
ew.SetPrintOptionsEx 0,0,3,0,"C:\Temp\Test123.pdf",1,0
End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |