Your Products have been synced, click here to refresh
Dim DmisApp As Object Dim DmisPart As Object Dim EditWindow As Object Dim ReportWindow As Object Sub Main Set DmisApp = CreateObject("PCDLRN.Application") Set DmisPart = DmisApp.ActivePartProgram Set EditWindow = DmisPart.EditWindow Set ReportWindow = DmisPart.ReportWindow EditWindow.SetPrintOptionsEx PCD_FILE, DMIS_OFF, PCD_OVERWRITE, 0, "e:\ProblemReports\AutomationOutput.PDF", PCD_PDF, False ReportWindow.PrintReport EditWindow.SetPrintOptionsEx 0, DMIS_OFF, PCD_OVERWRITE, 0, "e:\ProblemReports\AutomationOutput.PDF", PCD_PDF, False Set ReportWindow = Nothing Set EditWindow = Nothing Set DmisPart = Nothing Set DmisApp = Nothing End Sub
Dim DmisApp As Object Dim DmisPart As Object Dim EditWindow As Object Dim ReportWindow As Object Sub Main Set DmisApp = CreateObject("PCDLRN.Application") Set DmisPart = DmisApp.ActivePartProgram Set EditWindow = DmisPart.EditWindow Set ReportWindow = DmisPart.ReportWindow EditWindow.SetPrintOptionsEx PCD_FILE, DMIS_OFF, PCD_OVERWRITE, 0, "e:\ProblemReports\AutomationOutput.PDF", PCD_PDF, False ReportWindow.PrintReport EditWindow.SetPrintOptionsEx 0, DMIS_OFF, PCD_OVERWRITE, 0, "e:\ProblemReports\AutomationOutput.PDF", PCD_PDF, False Set ReportWindow = Nothing Set EditWindow = Nothing Set DmisPart = Nothing Set DmisApp = Nothing End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |