Community
- Forums Home
- >
- Inventor Community
- >
- Inventor Programming - iLogic, Macros, AddIns & Apprentice
- >
- Print Document Loop
Inventor Programming - iLogic, Macros, AddIns & Apprentice
Inventor iLogic, Macros, AddIns & Apprentice Forum. Share your knowledge, ask questions, and explore popular Inventor topics related to programming, creating add-ins, macros, working with the API or creating iLogic tools.
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
This page has been translated for your convenience with an automatic translation service. This is not an official translation and may contain errors and inaccurate translations. Autodesk does not warrant, either expressly or implied, the accuracy, reliability or completeness of the information translated by the machine translation service and will not be liable for damages or losses caused by the trust placed in the translation service.
Translate
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page
Message 1 of 10
Anonymous
292 Views, 9 Replies
11-12-2002
10:27 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-12-2002
10:27 PM
Print Document Loop
For another user I pieced together a quick and dirty way for a user to print
a PDF (just calls the print routine) when the status of an IDW is set to
released. It works fine (print on a save) but for some reason after it
prints to the PDF it try to print again. Loops sometimes once or twice and
sometimes forever. Thsi is the class module that is called by a sub..See
anything that jumps out at you?
BTW you'll have to change the printer manager value to your printer for it
to run..... TIA
Private WithEvents oApplicationEvents As ApplicationEvents
Public Sub connect()
Set oApplicationEvents = ThisApplication.ApplicationEvents
End Sub
Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
NameValueMap, HandlingCode As HandlingCodeEnum)
'check to see if this is an IDW, if not then skip the whole macro
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
'Check if file is set to Released
' Declare the Application object
Dim oApplication As Inventor.Application
' Obtain the Inventor Application object.
' This assumes Inventor is already running.
Set oApplication = GetObject(, "Inventor.Application")
' Set a reference to the active document.
' This assumes a document is open.
Dim oDoc As Document
Set oDoc = oApplication.ActiveDocument
' Obtain the PropertySets collection object
Dim oPropsets As PropertySets
Set oPropsets = oDoc.PropertySets
' Access the value of the "Design Status" Property
Dim StatusValue As Variant
StatusValue =
oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesig
nStatusDesignTrackingProperties).Value
'If set to Released then print PDF file
If StatusValue = "3" Then
' Set a reference to the print manager object of the active document.
' This will fail if a drawing document is not active.
Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
'Set the printer
oPrintMgr.Printer = "5D PDF Creator"
' Set to print in color.
oPrintMgr.ColorMode = kPrintColorPalette
' Set to print two copies.
oPrintMgr.NumberOfCopies = 2
' Set to print using portrait orientation.
oPrintMgr.Orientation = kPortraitOrientation
' Set the paper size.
oPrintMgr.PaperSize = kPaperSize11x17
' Get the name of the printer that will be used.
If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want to
continue?", vbYesNo + vbQuestion) = vbNo Then
' Change to another printer.
Dim sPrinterName As String
sPrinterName = InputBox("Enter name of new printer:", "New Printer")
If sPrinterName = "" Then
Exit Sub
Else
oPrintMgr.Printer = sPrinterName
End If
End If
' Set to print all sheets.
oPrintMgr.PrintRange = kPrintAllSheets
' Set to print full scale.
oPrintMgr.ScaleMode = kPrintBestFitScale
' Submit the print.
oPrintMgr.SubmitPrint
' Change the number of copies to 1.
oPrintMgr.NumberOfCopies = 1
' Change the paper size to a custom size. The units are in centimeters.
oPrintMgr.PaperSize = kPaperSize11x17
' Get and set the current sheet range.
Dim iFromSheet As Long
Dim iToSheet As Long
Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
' Change the print range to print sheets 1 through 2.
oPrintMgr.PrintRange = kPrintSheetRange
Call oPrintMgr.SetSheetRange(1, 2)
' Submit the print.
oPrintMgr.SubmitPrint
Else
End If
Else
End If
End Sub
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
a PDF (just calls the print routine) when the status of an IDW is set to
released. It works fine (print on a save) but for some reason after it
prints to the PDF it try to print again. Loops sometimes once or twice and
sometimes forever. Thsi is the class module that is called by a sub..See
anything that jumps out at you?
BTW you'll have to change the printer manager value to your printer for it
to run..... TIA
Private WithEvents oApplicationEvents As ApplicationEvents
Public Sub connect()
Set oApplicationEvents = ThisApplication.ApplicationEvents
End Sub
Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
NameValueMap, HandlingCode As HandlingCodeEnum)
'check to see if this is an IDW, if not then skip the whole macro
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
'Check if file is set to Released
' Declare the Application object
Dim oApplication As Inventor.Application
' Obtain the Inventor Application object.
' This assumes Inventor is already running.
Set oApplication = GetObject(, "Inventor.Application")
' Set a reference to the active document.
' This assumes a document is open.
Dim oDoc As Document
Set oDoc = oApplication.ActiveDocument
' Obtain the PropertySets collection object
Dim oPropsets As PropertySets
Set oPropsets = oDoc.PropertySets
' Access the value of the "Design Status" Property
Dim StatusValue As Variant
StatusValue =
oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesig
nStatusDesignTrackingProperties).Value
'If set to Released then print PDF file
If StatusValue = "3" Then
' Set a reference to the print manager object of the active document.
' This will fail if a drawing document is not active.
Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
'Set the printer
oPrintMgr.Printer = "5D PDF Creator"
' Set to print in color.
oPrintMgr.ColorMode = kPrintColorPalette
' Set to print two copies.
oPrintMgr.NumberOfCopies = 2
' Set to print using portrait orientation.
oPrintMgr.Orientation = kPortraitOrientation
' Set the paper size.
oPrintMgr.PaperSize = kPaperSize11x17
' Get the name of the printer that will be used.
If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want to
continue?", vbYesNo + vbQuestion) = vbNo Then
' Change to another printer.
Dim sPrinterName As String
sPrinterName = InputBox("Enter name of new printer:", "New Printer")
If sPrinterName = "" Then
Exit Sub
Else
oPrintMgr.Printer = sPrinterName
End If
End If
' Set to print all sheets.
oPrintMgr.PrintRange = kPrintAllSheets
' Set to print full scale.
oPrintMgr.ScaleMode = kPrintBestFitScale
' Submit the print.
oPrintMgr.SubmitPrint
' Change the number of copies to 1.
oPrintMgr.NumberOfCopies = 1
' Change the paper size to a custom size. The units are in centimeters.
oPrintMgr.PaperSize = kPaperSize11x17
' Get and set the current sheet range.
Dim iFromSheet As Long
Dim iToSheet As Long
Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
' Change the print range to print sheets 1 through 2.
oPrintMgr.PrintRange = kPrintSheetRange
Call oPrintMgr.SetSheetRange(1, 2)
' Submit the print.
oPrintMgr.SubmitPrint
Else
End If
Else
End If
End Sub
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
9 REPLIES 9
Message 2 of 10
Anonymous
in reply to:
Anonymous
11-12-2002
10:27 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-12-2002
10:27 PM
Is this user on R6 SP1 (106) or R5.3? If not, setting
PrintManager.Printer could be a dangerous thing as there was a defect
and the printer name would not be properly set. Try setting everything
up with "5D PDF Creator" as the Windows default printer and make sure
that is what Inventor is defaulting to then REM out the line in your
code which is oPrintMgr.Printer = "5D PDF Creator"
(then tell us if that was it)
"Sean Dotson wrote:
>For another user I pieced together a quick and dirty way for a user to print
>a PDF (just calls the print routine) when the status of an IDW is set to
>released. It works fine (print on a save) but for some reason after it
>prints to the PDF it try to print again. Loops sometimes once or twice and
>sometimes forever. Thsi is the class module that is called by a sub..See
>anything that jumps out at you?
>
>BTW you'll have to change the printer manager value to your printer for it
>to run..... TIA
>
>
>
>Private WithEvents oApplicationEvents As ApplicationEvents
>
>Public Sub connect()
> Set oApplicationEvents = ThisApplication.ApplicationEvents
>End Sub
>
>
>Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
>Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
>NameValueMap, HandlingCode As HandlingCodeEnum)
>
>'check to see if this is an IDW, if not then skip the whole macro
>If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
>
>'Check if file is set to Released
>
> ' Declare the Application object
>Dim oApplication As Inventor.Application
>
>' Obtain the Inventor Application object.
>' This assumes Inventor is already running.
>Set oApplication = GetObject(, "Inventor.Application")
>
>' Set a reference to the active document.
>' This assumes a document is open.
>Dim oDoc As Document
>Set oDoc = oApplication.ActiveDocument
>
>' Obtain the PropertySets collection object
>Dim oPropsets As PropertySets
>Set oPropsets = oDoc.PropertySets
>
>' Access the value of the "Design Status" Property
>Dim StatusValue As Variant
>StatusValue =
>oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesig
>nStatusDesignTrackingProperties).Value
>
>'If set to Released then print PDF file
>If StatusValue = "3" Then
>
>' Set a reference to the print manager object of the active document.
> ' This will fail if a drawing document is not active.
> Dim oPrintMgr As DrawingPrintManager
> Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
>
> 'Set the printer
> oPrintMgr.Printer = "5D PDF Creator"
>
> ' Set to print in color.
> oPrintMgr.ColorMode = kPrintColorPalette
>
> ' Set to print two copies.
> oPrintMgr.NumberOfCopies = 2
>
> ' Set to print using portrait orientation.
> oPrintMgr.Orientation = kPortraitOrientation
>
> ' Set the paper size.
> oPrintMgr.PaperSize = kPaperSize11x17
>
> ' Get the name of the printer that will be used.
> If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want to
>continue?", vbYesNo + vbQuestion) = vbNo Then
> ' Change to another printer.
> Dim sPrinterName As String
> sPrinterName = InputBox("Enter name of new printer:", "New Printer")
> If sPrinterName = "" Then
> Exit Sub
> Else
> oPrintMgr.Printer = sPrinterName
> End If
> End If
>
> ' Set to print all sheets.
> oPrintMgr.PrintRange = kPrintAllSheets
>
> ' Set to print full scale.
> oPrintMgr.ScaleMode = kPrintBestFitScale
>
> ' Submit the print.
> oPrintMgr.SubmitPrint
>
> ' Change the number of copies to 1.
> oPrintMgr.NumberOfCopies = 1
>
> ' Change the paper size to a custom size. The units are in centimeters.
> oPrintMgr.PaperSize = kPaperSize11x17
>
> ' Get and set the current sheet range.
> Dim iFromSheet As Long
> Dim iToSheet As Long
> Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
>
> ' Change the print range to print sheets 1 through 2.
> oPrintMgr.PrintRange = kPrintSheetRange
> Call oPrintMgr.SetSheetRange(1, 2)
>
> ' Submit the print.
> oPrintMgr.SubmitPrint
>
>Else
>End If
>
>Else
>End If
>
>End Sub
>
>--
>Sean Dotson, PE
>http://www.sdotson.com
>...sleep is for the weak..
>-----------------------------------------
>
>
>
>
PrintManager.Printer could be a dangerous thing as there was a defect
and the printer name would not be properly set. Try setting everything
up with "5D PDF Creator" as the Windows default printer and make sure
that is what Inventor is defaulting to then REM out the line in your
code which is oPrintMgr.Printer = "5D PDF Creator"
(then tell us if that was it)
"Sean Dotson wrote:
>For another user I pieced together a quick and dirty way for a user to print
>a PDF (just calls the print routine) when the status of an IDW is set to
>released. It works fine (print on a save) but for some reason after it
>prints to the PDF it try to print again. Loops sometimes once or twice and
>sometimes forever. Thsi is the class module that is called by a sub..See
>anything that jumps out at you?
>
>BTW you'll have to change the printer manager value to your printer for it
>to run..... TIA
>
>
>
>Private WithEvents oApplicationEvents As ApplicationEvents
>
>Public Sub connect()
> Set oApplicationEvents = ThisApplication.ApplicationEvents
>End Sub
>
>
>Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
>Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
>NameValueMap, HandlingCode As HandlingCodeEnum)
>
>'check to see if this is an IDW, if not then skip the whole macro
>If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
>
>'Check if file is set to Released
>
> ' Declare the Application object
>Dim oApplication As Inventor.Application
>
>' Obtain the Inventor Application object.
>' This assumes Inventor is already running.
>Set oApplication = GetObject(, "Inventor.Application")
>
>' Set a reference to the active document.
>' This assumes a document is open.
>Dim oDoc As Document
>Set oDoc = oApplication.ActiveDocument
>
>' Obtain the PropertySets collection object
>Dim oPropsets As PropertySets
>Set oPropsets = oDoc.PropertySets
>
>' Access the value of the "Design Status" Property
>Dim StatusValue As Variant
>StatusValue =
>oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesig
>nStatusDesignTrackingProperties).Value
>
>'If set to Released then print PDF file
>If StatusValue = "3" Then
>
>' Set a reference to the print manager object of the active document.
> ' This will fail if a drawing document is not active.
> Dim oPrintMgr As DrawingPrintManager
> Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
>
> 'Set the printer
> oPrintMgr.Printer = "5D PDF Creator"
>
> ' Set to print in color.
> oPrintMgr.ColorMode = kPrintColorPalette
>
> ' Set to print two copies.
> oPrintMgr.NumberOfCopies = 2
>
> ' Set to print using portrait orientation.
> oPrintMgr.Orientation = kPortraitOrientation
>
> ' Set the paper size.
> oPrintMgr.PaperSize = kPaperSize11x17
>
> ' Get the name of the printer that will be used.
> If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want to
>continue?", vbYesNo + vbQuestion) = vbNo Then
> ' Change to another printer.
> Dim sPrinterName As String
> sPrinterName = InputBox("Enter name of new printer:", "New Printer")
> If sPrinterName = "" Then
> Exit Sub
> Else
> oPrintMgr.Printer = sPrinterName
> End If
> End If
>
> ' Set to print all sheets.
> oPrintMgr.PrintRange = kPrintAllSheets
>
> ' Set to print full scale.
> oPrintMgr.ScaleMode = kPrintBestFitScale
>
> ' Submit the print.
> oPrintMgr.SubmitPrint
>
> ' Change the number of copies to 1.
> oPrintMgr.NumberOfCopies = 1
>
> ' Change the paper size to a custom size. The units are in centimeters.
> oPrintMgr.PaperSize = kPaperSize11x17
>
> ' Get and set the current sheet range.
> Dim iFromSheet As Long
> Dim iToSheet As Long
> Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
>
> ' Change the print range to print sheets 1 through 2.
> oPrintMgr.PrintRange = kPrintSheetRange
> Call oPrintMgr.SetSheetRange(1, 2)
>
> ' Submit the print.
> oPrintMgr.SubmitPrint
>
>Else
>End If
>
>Else
>End If
>
>End Sub
>
>--
>Sean Dotson, PE
>http://www.sdotson.com
>...sleep is for the weak..
>-----------------------------------------
>
>
>
>
Message 3 of 10
Anonymous
in reply to:
Anonymous
11-12-2002
10:43 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-12-2002
10:43 PM
It loops (usually twice but up to infinity) in both 5.3 and 6 when I have
the printer specified directly or use the default printer. Doesn't seem to
make a difference as to version.
Was the bug in R6 and fixed in SP1. The particular machine I'm using
doesn't have SP1 loaded yet.
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
"Charles Bliss" wrote in message
news:3DD26096.3020307@cbliss.com...
> Is this user on R6 SP1 (106) or R5.3? If not, setting
> PrintManager.Printer could be a dangerous thing as there was a defect
> and the printer name would not be properly set. Try setting everything
> up with "5D PDF Creator" as the Windows default printer and make sure
> that is what Inventor is defaulting to then REM out the line in your
> code which is oPrintMgr.Printer = "5D PDF Creator"
>
> (then tell us if that was it)
>
> "Sean Dotson wrote:
>
> >For another user I pieced together a quick and dirty way for a user to
print
> >a PDF (just calls the print routine) when the status of an IDW is set to
> >released. It works fine (print on a save) but for some reason after it
> >prints to the PDF it try to print again. Loops sometimes once or twice
and
> >sometimes forever. Thsi is the class module that is called by a sub..See
> >anything that jumps out at you?
> >
> >BTW you'll have to change the printer manager value to your printer for
it
> >to run..... TIA
> >
> >
> >
> >Private WithEvents oApplicationEvents As ApplicationEvents
> >
> >Public Sub connect()
> > Set oApplicationEvents = ThisApplication.ApplicationEvents
> >End Sub
> >
> >
> >Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
> >Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
> >NameValueMap, HandlingCode As HandlingCodeEnum)
> >
> >'check to see if this is an IDW, if not then skip the whole macro
> >If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject T
hen
> >
> >'Check if file is set to Released
> >
> > ' Declare the Application object
> >Dim oApplication As Inventor.Application
> >
> >' Obtain the Inventor Application object.
> >' This assumes Inventor is already running.
> >Set oApplication = GetObject(, "Inventor.Application")
> >
> >' Set a reference to the active document.
> >' This assumes a document is open.
> >Dim oDoc As Document
> >Set oDoc = oApplication.ActiveDocument
> >
> >' Obtain the PropertySets collection object
> >Dim oPropsets As PropertySets
> >Set oPropsets = oDoc.PropertySets
> >
> >' Access the value of the "Design Status" Property
> >Dim StatusValue As Variant
> >StatusValue =
>
>oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
g
> >nStatusDesignTrackingProperties).Value
> >
> >'If set to Released then print PDF file
> >If StatusValue = "3" Then
> >
> >' Set a reference to the print manager object of the active document.
> > ' This will fail if a drawing document is not active.
> > Dim oPrintMgr As DrawingPrintManager
> > Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
> >
> > 'Set the printer
> > oPrintMgr.Printer = "5D PDF Creator"
> >
> > ' Set to print in color.
> > oPrintMgr.ColorMode = kPrintColorPalette
> >
> > ' Set to print two copies.
> > oPrintMgr.NumberOfCopies = 2
> >
> > ' Set to print using portrait orientation.
> > oPrintMgr.Orientation = kPortraitOrientation
> >
> > ' Set the paper size.
> > oPrintMgr.PaperSize = kPaperSize11x17
> >
> > ' Get the name of the printer that will be used.
> > If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want
to
> >continue?", vbYesNo + vbQuestion) = vbNo Then
> > ' Change to another printer.
> > Dim sPrinterName As String
> > sPrinterName = InputBox("Enter name of new printer:", "New
Printer")
> > If sPrinterName = "" Then
> > Exit Sub
> > Else
> > oPrintMgr.Printer = sPrinterName
> > End If
> > End If
> >
> > ' Set to print all sheets.
> > oPrintMgr.PrintRange = kPrintAllSheets
> >
> > ' Set to print full scale.
> > oPrintMgr.ScaleMode = kPrintBestFitScale
> >
> > ' Submit the print.
> > oPrintMgr.SubmitPrint
> >
> > ' Change the number of copies to 1.
> > oPrintMgr.NumberOfCopies = 1
> >
> > ' Change the paper size to a custom size. The units are in
centimeters.
> > oPrintMgr.PaperSize = kPaperSize11x17
> >
> > ' Get and set the current sheet range.
> > Dim iFromSheet As Long
> > Dim iToSheet As Long
> > Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
> >
> > ' Change the print range to print sheets 1 through 2.
> > oPrintMgr.PrintRange = kPrintSheetRange
> > Call oPrintMgr.SetSheetRange(1, 2)
> >
> > ' Submit the print.
> > oPrintMgr.SubmitPrint
> >
> >Else
> >End If
> >
> >Else
> >End If
> >
> >End Sub
> >
> >--
> >Sean Dotson, PE
> >http://www.sdotson.com
> >...sleep is for the weak..
> >-----------------------------------------
> >
> >
> >
> >
>
the printer specified directly or use the default printer. Doesn't seem to
make a difference as to version.
Was the bug in R6 and fixed in SP1. The particular machine I'm using
doesn't have SP1 loaded yet.
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
"Charles Bliss"
news:3DD26096.3020307@cbliss.com...
> Is this user on R6 SP1 (106) or R5.3? If not, setting
> PrintManager.Printer could be a dangerous thing as there was a defect
> and the printer name would not be properly set. Try setting everything
> up with "5D PDF Creator" as the Windows default printer and make sure
> that is what Inventor is defaulting to then REM out the line in your
> code which is oPrintMgr.Printer = "5D PDF Creator"
>
> (then tell us if that was it)
>
> "Sean Dotson wrote:
>
> >For another user I pieced together a quick and dirty way for a user to
> >a PDF (just calls the print routine) when the status of an IDW is set to
> >released. It works fine (print on a save) but for some reason after it
> >prints to the PDF it try to print again. Loops sometimes once or twice
and
> >sometimes forever. Thsi is the class module that is called by a sub..See
> >anything that jumps out at you?
> >
> >BTW you'll have to change the printer manager value to your printer for
it
> >to run..... TIA
> >
> >
> >
> >Private WithEvents oApplicationEvents As ApplicationEvents
> >
> >Public Sub connect()
> > Set oApplicationEvents = ThisApplication.ApplicationEvents
> >End Sub
> >
> >
> >Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
> >Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
> >NameValueMap, HandlingCode As HandlingCodeEnum)
> >
> >'check to see if this is an IDW, if not then skip the whole macro
> >If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject T
hen
> >
> >'Check if file is set to Released
> >
> > ' Declare the Application object
> >Dim oApplication As Inventor.Application
> >
> >' Obtain the Inventor Application object.
> >' This assumes Inventor is already running.
> >Set oApplication = GetObject(, "Inventor.Application")
> >
> >' Set a reference to the active document.
> >' This assumes a document is open.
> >Dim oDoc As Document
> >Set oDoc = oApplication.ActiveDocument
> >
> >' Obtain the PropertySets collection object
> >Dim oPropsets As PropertySets
> >Set oPropsets = oDoc.PropertySets
> >
> >' Access the value of the "Design Status" Property
> >Dim StatusValue As Variant
> >StatusValue =
>
>oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
g
> >nStatusDesignTrackingProperties).Value
> >
> >'If set to Released then print PDF file
> >If StatusValue = "3" Then
> >
> >' Set a reference to the print manager object of the active document.
> > ' This will fail if a drawing document is not active.
> > Dim oPrintMgr As DrawingPrintManager
> > Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
> >
> > 'Set the printer
> > oPrintMgr.Printer = "5D PDF Creator"
> >
> > ' Set to print in color.
> > oPrintMgr.ColorMode = kPrintColorPalette
> >
> > ' Set to print two copies.
> > oPrintMgr.NumberOfCopies = 2
> >
> > ' Set to print using portrait orientation.
> > oPrintMgr.Orientation = kPortraitOrientation
> >
> > ' Set the paper size.
> > oPrintMgr.PaperSize = kPaperSize11x17
> >
> > ' Get the name of the printer that will be used.
> > If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want
to
> >continue?", vbYesNo + vbQuestion) = vbNo Then
> > ' Change to another printer.
> > Dim sPrinterName As String
> > sPrinterName = InputBox("Enter name of new printer:", "New
Printer")
> > If sPrinterName = "" Then
> > Exit Sub
> > Else
> > oPrintMgr.Printer = sPrinterName
> > End If
> > End If
> >
> > ' Set to print all sheets.
> > oPrintMgr.PrintRange = kPrintAllSheets
> >
> > ' Set to print full scale.
> > oPrintMgr.ScaleMode = kPrintBestFitScale
> >
> > ' Submit the print.
> > oPrintMgr.SubmitPrint
> >
> > ' Change the number of copies to 1.
> > oPrintMgr.NumberOfCopies = 1
> >
> > ' Change the paper size to a custom size. The units are in
centimeters.
> > oPrintMgr.PaperSize = kPaperSize11x17
> >
> > ' Get and set the current sheet range.
> > Dim iFromSheet As Long
> > Dim iToSheet As Long
> > Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
> >
> > ' Change the print range to print sheets 1 through 2.
> > oPrintMgr.PrintRange = kPrintSheetRange
> > Call oPrintMgr.SetSheetRange(1, 2)
> >
> > ' Submit the print.
> > oPrintMgr.SubmitPrint
> >
> >Else
> >End If
> >
> >Else
> >End If
> >
> >End Sub
> >
> >--
> >Sean Dotson, PE
> >http://www.sdotson.com
> >...sleep is for the weak..
> >-----------------------------------------
> >
> >
> >
> >
>
Message 4 of 10
Anonymous
in reply to:
Anonymous
11-12-2002
10:50 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-12-2002
10:50 PM
The bug was supposed to be fixed in R6SP1 (106). I haven't checked it in
106 yet. This problem did not exist in R5.3 so I suspect your problem is
elsewhere if the user is on R5.3sp2
Sean Dotson wrote:
106 yet. This problem did not exist in R5.3 so I suspect your problem is
elsewhere if the user is on R5.3sp2
Sean Dotson wrote:
cite="mid03D6E0B4CB2205E974C3C79089BD4003@in.WebX.maYIadrTaRb">
It loops (usually twice but up to infinity) in both 5.3 and 6 when I have
the printer specified directly or use the default printer. Doesn't seem to
make a difference as to version.
Was the bug in R6 and fixed in SP1. The particular machine I'm using
doesn't have SP1 loaded yet.
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
"Charles Bliss" <cbliss@cbliss.com> wrote in message
news:3DD26096.3020307@cbliss.com...
Is this user on R6 SP1 (106) or R5.3? If not, setting
PrintManager.Printer could be a dangerous thing as there was a defect
and the printer name would not be properly set. Try setting everything
up with "5D PDF Creator" as the Windows default printer and make sure
that is what Inventor is defaulting to then REM out the line in your
code which is oPrintMgr.Printer = "5D PDF Creator"
(then tell us if that was it)
"Sean Dotson wrote:
For another user I pieced together a quick and dirty way for a user to
a PDF (just calls the print routine) when the status of an IDW is set to
released. It works fine (print on a save) but for some reason after it
prints to the PDF it try to print again. Loops sometimes once or twice
and
sometimes forever. Thsi is the class module that is called by a sub..See
anything that jumps out at you?
BTW you'll have to change the printer manager value to your printer for
it
to run..... TIA
Private WithEvents oApplicationEvents As ApplicationEvents
Public Sub connect()
Set oApplicationEvents = ThisApplication.ApplicationEvents
End Sub
Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
NameValueMap, HandlingCode As HandlingCodeEnum)
'check to see if this is an IDW, if not then skip the whole macro
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject T
hen
'Check if file is set to Released
' Declare the Application object
Dim oApplication As Inventor.Application
' Obtain the Inventor Application object.
' This assumes Inventor is already running.
Set oApplication = GetObject(, "Inventor.Application")
' Set a reference to the active document.
' This assumes a document is open.
Dim oDoc As Document
Set oDoc = oApplication.ActiveDocument
' Obtain the PropertySets collection object
Dim oPropsets As PropertySets
Set oPropsets = oDoc.PropertySets
' Access the value of the "Design Status" Property
Dim StatusValue As Variant
StatusValue =
oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
g
nStatusDesignTrackingProperties).Value
'If set to Released then print PDF file
If StatusValue = "3" Then
' Set a reference to the print manager object of the active document.
' This will fail if a drawing document is not active.
Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
'Set the printer
oPrintMgr.Printer = "5D PDF Creator"
' Set to print in color.
oPrintMgr.ColorMode = kPrintColorPalette
' Set to print two copies.
oPrintMgr.NumberOfCopies = 2
' Set to print using portrait orientation.
oPrintMgr.Orientation = kPortraitOrientation
' Set the paper size.
oPrintMgr.PaperSize = kPaperSize11x17
' Get the name of the printer that will be used.
If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want
to
continue?", vbYesNo + vbQuestion) = vbNo Then
' Change to another printer.
Dim sPrinterName As String
sPrinterName = InputBox("Enter name of new printer:", "New
Printer")
If sPrinterName = "" Then
Exit Sub
Else
oPrintMgr.Printer = sPrinterName
End If
End If
' Set to print all sheets.
oPrintMgr.PrintRange = kPrintAllSheets
' Set to print full scale.
oPrintMgr.ScaleMode = kPrintBestFitScale
' Submit the print.
oPrintMgr.SubmitPrint
' Change the number of copies to 1.
oPrintMgr.NumberOfCopies = 1
' Change the paper size to a custom size. The units are in
centimeters.
oPrintMgr.PaperSize = kPaperSize11x17
' Get and set the current sheet range.
Dim iFromSheet As Long
Dim iToSheet As Long
Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
' Change the print range to print sheets 1 through 2.
oPrintMgr.PrintRange = kPrintSheetRange
Call oPrintMgr.SetSheetRange(1, 2)
' Submit the print.
oPrintMgr.SubmitPrint
Else
End If
Else
End If
End Sub
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
Message 5 of 10
Anonymous
in reply to:
Anonymous
11-12-2002
11:12 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-12-2002
11:12 PM
SP1 has been released??
--
Veign
www.veign.com
<> - Bigger, Better, Cleaner!
www.veign.com/download_application.html#Link200
Code Samples & Sample Projects
http://www.veign.com/information/application/info_app.html
Submit Your Best Code (you keep the rights)
http://www.veign.com/information/application/code_submit.html
---------
"Sean Dotson" wrote in message
news:03D6E0B4CB2205E974C3C79089BD4003@in.WebX.maYIadrTaRb...
> It loops (usually twice but up to infinity) in both 5.3 and 6 when I have
> the printer specified directly or use the default printer. Doesn't seem
to
> make a difference as to version.
>
> Was the bug in R6 and fixed in SP1. The particular machine I'm using
> doesn't have SP1 loaded yet.
>
> --
> Sean Dotson, PE
> http://www.sdotson.com
> ...sleep is for the weak..
> -----------------------------------------
> "Charles Bliss" wrote in message
> news:3DD26096.3020307@cbliss.com...
> > Is this user on R6 SP1 (106) or R5.3? If not, setting
> > PrintManager.Printer could be a dangerous thing as there was a defect
> > and the printer name would not be properly set. Try setting everything
> > up with "5D PDF Creator" as the Windows default printer and make sure
> > that is what Inventor is defaulting to then REM out the line in your
> > code which is oPrintMgr.Printer = "5D PDF Creator"
> >
> > (then tell us if that was it)
> >
> > "Sean Dotson wrote:
> >
> > >For another user I pieced together a quick and dirty way for a user to
> print
> > >a PDF (just calls the print routine) when the status of an IDW is set
to
> > >released. It works fine (print on a save) but for some reason after it
> > >prints to the PDF it try to print again. Loops sometimes once or twice
> and
> > >sometimes forever. Thsi is the class module that is called by a
sub..See
> > >anything that jumps out at you?
> > >
> > >BTW you'll have to change the printer manager value to your printer for
> it
> > >to run..... TIA
> > >
> > >
> > >
> > >Private WithEvents oApplicationEvents As ApplicationEvents
> > >
> > >Public Sub connect()
> > > Set oApplicationEvents = ThisApplication.ApplicationEvents
> > >End Sub
> > >
> > >
> > >Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
> > >Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
> > >NameValueMap, HandlingCode As HandlingCodeEnum)
> > >
> > >'check to see if this is an IDW, if not then skip the whole macro
> > >If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject
T
> hen
> > >
> > >'Check if file is set to Released
> > >
> > > ' Declare the Application object
> > >Dim oApplication As Inventor.Application
> > >
> > >' Obtain the Inventor Application object.
> > >' This assumes Inventor is already running.
> > >Set oApplication = GetObject(, "Inventor.Application")
> > >
> > >' Set a reference to the active document.
> > >' This assumes a document is open.
> > >Dim oDoc As Document
> > >Set oDoc = oApplication.ActiveDocument
> > >
> > >' Obtain the PropertySets collection object
> > >Dim oPropsets As PropertySets
> > >Set oPropsets = oDoc.PropertySets
> > >
> > >' Access the value of the "Design Status" Property
> > >Dim StatusValue As Variant
> > >StatusValue =
> >
>
>oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
> g
> > >nStatusDesignTrackingProperties).Value
> > >
> > >'If set to Released then print PDF file
> > >If StatusValue = "3" Then
> > >
> > >' Set a reference to the print manager object of the active document.
> > > ' This will fail if a drawing document is not active.
> > > Dim oPrintMgr As DrawingPrintManager
> > > Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
> > >
> > > 'Set the printer
> > > oPrintMgr.Printer = "5D PDF Creator"
> > >
> > > ' Set to print in color.
> > > oPrintMgr.ColorMode = kPrintColorPalette
> > >
> > > ' Set to print two copies.
> > > oPrintMgr.NumberOfCopies = 2
> > >
> > > ' Set to print using portrait orientation.
> > > oPrintMgr.Orientation = kPortraitOrientation
> > >
> > > ' Set the paper size.
> > > oPrintMgr.PaperSize = kPaperSize11x17
> > >
> > > ' Get the name of the printer that will be used.
> > > If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want
> to
> > >continue?", vbYesNo + vbQuestion) = vbNo Then
> > > ' Change to another printer.
> > > Dim sPrinterName As String
> > > sPrinterName = InputBox("Enter name of new printer:", "New
> Printer")
> > > If sPrinterName = "" Then
> > > Exit Sub
> > > Else
> > > oPrintMgr.Printer = sPrinterName
> > > End If
> > > End If
> > >
> > > ' Set to print all sheets.
> > > oPrintMgr.PrintRange = kPrintAllSheets
> > >
> > > ' Set to print full scale.
> > > oPrintMgr.ScaleMode = kPrintBestFitScale
> > >
> > > ' Submit the print.
> > > oPrintMgr.SubmitPrint
> > >
> > > ' Change the number of copies to 1.
> > > oPrintMgr.NumberOfCopies = 1
> > >
> > > ' Change the paper size to a custom size. The units are in
> centimeters.
> > > oPrintMgr.PaperSize = kPaperSize11x17
> > >
> > > ' Get and set the current sheet range.
> > > Dim iFromSheet As Long
> > > Dim iToSheet As Long
> > > Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
> > >
> > > ' Change the print range to print sheets 1 through 2.
> > > oPrintMgr.PrintRange = kPrintSheetRange
> > > Call oPrintMgr.SetSheetRange(1, 2)
> > >
> > > ' Submit the print.
> > > oPrintMgr.SubmitPrint
> > >
> > >Else
> > >End If
> > >
> > >Else
> > >End If
> > >
> > >End Sub
> > >
> > >--
> > >Sean Dotson, PE
> > >http://www.sdotson.com
> > >...sleep is for the weak..
> > >-----------------------------------------
> > >
> > >
> > >
> > >
> >
>
>
--
Veign
www.veign.com
<
www.veign.com/download_application.html#Link200
Code Samples & Sample Projects
http://www.veign.com/information/application/info_app.html
Submit Your Best Code (you keep the rights)
http://www.veign.com/information/application/code_submit.html
---------
"Sean Dotson"
news:03D6E0B4CB2205E974C3C79089BD4003@in.WebX.maYIadrTaRb...
> It loops (usually twice but up to infinity) in both 5.3 and 6 when I have
> the printer specified directly or use the default printer. Doesn't seem
to
> make a difference as to version.
>
> Was the bug in R6 and fixed in SP1. The particular machine I'm using
> doesn't have SP1 loaded yet.
>
> --
> Sean Dotson, PE
> http://www.sdotson.com
> ...sleep is for the weak..
> -----------------------------------------
> "Charles Bliss"
> news:3DD26096.3020307@cbliss.com...
> > Is this user on R6 SP1 (106) or R5.3? If not, setting
> > PrintManager.Printer could be a dangerous thing as there was a defect
> > and the printer name would not be properly set. Try setting everything
> > up with "5D PDF Creator" as the Windows default printer and make sure
> > that is what Inventor is defaulting to then REM out the line in your
> > code which is oPrintMgr.Printer = "5D PDF Creator"
> >
> > (then tell us if that was it)
> >
> > "Sean Dotson wrote:
> >
> > >For another user I pieced together a quick and dirty way for a user to
> > >a PDF (just calls the print routine) when the status of an IDW is set
to
> > >released. It works fine (print on a save) but for some reason after it
> > >prints to the PDF it try to print again. Loops sometimes once or twice
> and
> > >sometimes forever. Thsi is the class module that is called by a
sub..See
> > >anything that jumps out at you?
> > >
> > >BTW you'll have to change the printer manager value to your printer for
> it
> > >to run..... TIA
> > >
> > >
> > >
> > >Private WithEvents oApplicationEvents As ApplicationEvents
> > >
> > >Public Sub connect()
> > > Set oApplicationEvents = ThisApplication.ApplicationEvents
> > >End Sub
> > >
> > >
> > >Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
> > >Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
> > >NameValueMap, HandlingCode As HandlingCodeEnum)
> > >
> > >'check to see if this is an IDW, if not then skip the whole macro
> > >If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject
T
> hen
> > >
> > >'Check if file is set to Released
> > >
> > > ' Declare the Application object
> > >Dim oApplication As Inventor.Application
> > >
> > >' Obtain the Inventor Application object.
> > >' This assumes Inventor is already running.
> > >Set oApplication = GetObject(, "Inventor.Application")
> > >
> > >' Set a reference to the active document.
> > >' This assumes a document is open.
> > >Dim oDoc As Document
> > >Set oDoc = oApplication.ActiveDocument
> > >
> > >' Obtain the PropertySets collection object
> > >Dim oPropsets As PropertySets
> > >Set oPropsets = oDoc.PropertySets
> > >
> > >' Access the value of the "Design Status" Property
> > >Dim StatusValue As Variant
> > >StatusValue =
> >
>
>oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
> g
> > >nStatusDesignTrackingProperties).Value
> > >
> > >'If set to Released then print PDF file
> > >If StatusValue = "3" Then
> > >
> > >' Set a reference to the print manager object of the active document.
> > > ' This will fail if a drawing document is not active.
> > > Dim oPrintMgr As DrawingPrintManager
> > > Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
> > >
> > > 'Set the printer
> > > oPrintMgr.Printer = "5D PDF Creator"
> > >
> > > ' Set to print in color.
> > > oPrintMgr.ColorMode = kPrintColorPalette
> > >
> > > ' Set to print two copies.
> > > oPrintMgr.NumberOfCopies = 2
> > >
> > > ' Set to print using portrait orientation.
> > > oPrintMgr.Orientation = kPortraitOrientation
> > >
> > > ' Set the paper size.
> > > oPrintMgr.PaperSize = kPaperSize11x17
> > >
> > > ' Get the name of the printer that will be used.
> > > If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want
> to
> > >continue?", vbYesNo + vbQuestion) = vbNo Then
> > > ' Change to another printer.
> > > Dim sPrinterName As String
> > > sPrinterName = InputBox("Enter name of new printer:", "New
> Printer")
> > > If sPrinterName = "" Then
> > > Exit Sub
> > > Else
> > > oPrintMgr.Printer = sPrinterName
> > > End If
> > > End If
> > >
> > > ' Set to print all sheets.
> > > oPrintMgr.PrintRange = kPrintAllSheets
> > >
> > > ' Set to print full scale.
> > > oPrintMgr.ScaleMode = kPrintBestFitScale
> > >
> > > ' Submit the print.
> > > oPrintMgr.SubmitPrint
> > >
> > > ' Change the number of copies to 1.
> > > oPrintMgr.NumberOfCopies = 1
> > >
> > > ' Change the paper size to a custom size. The units are in
> centimeters.
> > > oPrintMgr.PaperSize = kPaperSize11x17
> > >
> > > ' Get and set the current sheet range.
> > > Dim iFromSheet As Long
> > > Dim iToSheet As Long
> > > Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
> > >
> > > ' Change the print range to print sheets 1 through 2.
> > > oPrintMgr.PrintRange = kPrintSheetRange
> > > Call oPrintMgr.SetSheetRange(1, 2)
> > >
> > > ' Submit the print.
> > > oPrintMgr.SubmitPrint
> > >
> > >Else
> > >End If
> > >
> > >Else
> > >End If
> > >
> > >End Sub
> > >
> > >--
> > >Sean Dotson, PE
> > >http://www.sdotson.com
> > >...sleep is for the weak..
> > >-----------------------------------------
> > >
> > >
> > >
> > >
> >
>
>
Message 6 of 10
Anonymous
in reply to:
Anonymous
11-12-2002
11:18 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-12-2002
11:18 PM
for ADN members and other select testers. Public release is scheduled for
Nov 15th to the best of my knowledge.
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
"Veign" wrote in message
news:C8223F272D92BDF6060F88E141609CD7@in.WebX.maYIadrTaRb...
> SP1 has been released??
>
> --
> Veign
> www.veign.com
> <> - Bigger, Better, Cleaner!
> www.veign.com/download_application.html#Link200
> Code Samples & Sample Projects
> http://www.veign.com/information/application/info_app.html
> Submit Your Best Code (you keep the rights)
> http://www.veign.com/information/application/code_submit.html
> ---------
> "Sean Dotson" wrote in message
> news:03D6E0B4CB2205E974C3C79089BD4003@in.WebX.maYIadrTaRb...
> > It loops (usually twice but up to infinity) in both 5.3 and 6 when I
have
> > the printer specified directly or use the default printer. Doesn't seem
> to
> > make a difference as to version.
> >
> > Was the bug in R6 and fixed in SP1. The particular machine I'm using
> > doesn't have SP1 loaded yet.
> >
> > --
> > Sean Dotson, PE
> > http://www.sdotson.com
> > ...sleep is for the weak..
> > -----------------------------------------
> > "Charles Bliss" wrote in message
> > news:3DD26096.3020307@cbliss.com...
> > > Is this user on R6 SP1 (106) or R5.3? If not, setting
> > > PrintManager.Printer could be a dangerous thing as there was a defect
> > > and the printer name would not be properly set. Try setting
everything
> > > up with "5D PDF Creator" as the Windows default printer and make sure
> > > that is what Inventor is defaulting to then REM out the line in your
> > > code which is oPrintMgr.Printer = "5D PDF Creator"
> > >
> > > (then tell us if that was it)
> > >
> > > "Sean Dotson wrote:
> > >
> > > >For another user I pieced together a quick and dirty way for a user
to
> > print
> > > >a PDF (just calls the print routine) when the status of an IDW is set
> to
> > > >released. It works fine (print on a save) but for some reason after
it
> > > >prints to the PDF it try to print again. Loops sometimes once or
twice
> > and
> > > >sometimes forever. Thsi is the class module that is called by a
> sub..See
> > > >anything that jumps out at you?
> > > >
> > > >BTW you'll have to change the printer manager value to your printer
for
> > it
> > > >to run..... TIA
> > > >
> > > >
> > > >
> > > >Private WithEvents oApplicationEvents As ApplicationEvents
> > > >
> > > >Public Sub connect()
> > > > Set oApplicationEvents = ThisApplication.ApplicationEvents
> > > >End Sub
> > > >
> > > >
> > > >Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
> > > >Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
> > > >NameValueMap, HandlingCode As HandlingCodeEnum)
> > > >
> > > >'check to see if this is an IDW, if not then skip the whole macro
> > > >If ThisApplication.ActiveDocument.DocumentType =
kDrawingDocumentObject
> T
> > hen
> > > >
> > > >'Check if file is set to Released
> > > >
> > > > ' Declare the Application object
> > > >Dim oApplication As Inventor.Application
> > > >
> > > >' Obtain the Inventor Application object.
> > > >' This assumes Inventor is already running.
> > > >Set oApplication = GetObject(, "Inventor.Application")
> > > >
> > > >' Set a reference to the active document.
> > > >' This assumes a document is open.
> > > >Dim oDoc As Document
> > > >Set oDoc = oApplication.ActiveDocument
> > > >
> > > >' Obtain the PropertySets collection object
> > > >Dim oPropsets As PropertySets
> > > >Set oPropsets = oDoc.PropertySets
> > > >
> > > >' Access the value of the "Design Status" Property
> > > >Dim StatusValue As Variant
> > > >StatusValue =
> > >
> >
>
>oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
> > g
> > > >nStatusDesignTrackingProperties).Value
> > > >
> > > >'If set to Released then print PDF file
> > > >If StatusValue = "3" Then
> > > >
> > > >' Set a reference to the print manager object of the active document.
> > > > ' This will fail if a drawing document is not active.
> > > > Dim oPrintMgr As DrawingPrintManager
> > > > Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
> > > >
> > > > 'Set the printer
> > > > oPrintMgr.Printer = "5D PDF Creator"
> > > >
> > > > ' Set to print in color.
> > > > oPrintMgr.ColorMode = kPrintColorPalette
> > > >
> > > > ' Set to print two copies.
> > > > oPrintMgr.NumberOfCopies = 2
> > > >
> > > > ' Set to print using portrait orientation.
> > > > oPrintMgr.Orientation = kPortraitOrientation
> > > >
> > > > ' Set the paper size.
> > > > oPrintMgr.PaperSize = kPaperSize11x17
> > > >
> > > > ' Get the name of the printer that will be used.
> > > > If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you
want
> > to
> > > >continue?", vbYesNo + vbQuestion) = vbNo Then
> > > > ' Change to another printer.
> > > > Dim sPrinterName As String
> > > > sPrinterName = InputBox("Enter name of new printer:", "New
> > Printer")
> > > > If sPrinterName = "" Then
> > > > Exit Sub
> > > > Else
> > > > oPrintMgr.Printer = sPrinterName
> > > > End If
> > > > End If
> > > >
> > > > ' Set to print all sheets.
> > > > oPrintMgr.PrintRange = kPrintAllSheets
> > > >
> > > > ' Set to print full scale.
> > > > oPrintMgr.ScaleMode = kPrintBestFitScale
> > > >
> > > > ' Submit the print.
> > > > oPrintMgr.SubmitPrint
> > > >
> > > > ' Change the number of copies to 1.
> > > > oPrintMgr.NumberOfCopies = 1
> > > >
> > > > ' Change the paper size to a custom size. The units are in
> > centimeters.
> > > > oPrintMgr.PaperSize = kPaperSize11x17
> > > >
> > > > ' Get and set the current sheet range.
> > > > Dim iFromSheet As Long
> > > > Dim iToSheet As Long
> > > > Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
> > > >
> > > > ' Change the print range to print sheets 1 through 2.
> > > > oPrintMgr.PrintRange = kPrintSheetRange
> > > > Call oPrintMgr.SetSheetRange(1, 2)
> > > >
> > > > ' Submit the print.
> > > > oPrintMgr.SubmitPrint
> > > >
> > > >Else
> > > >End If
> > > >
> > > >Else
> > > >End If
> > > >
> > > >End Sub
> > > >
> > > >--
> > > >Sean Dotson, PE
> > > >http://www.sdotson.com
> > > >...sleep is for the weak..
> > > >-----------------------------------------
> > > >
> > > >
> > > >
> > > >
> > >
> >
> >
>
>
Nov 15th to the best of my knowledge.
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
"Veign"
news:C8223F272D92BDF6060F88E141609CD7@in.WebX.maYIadrTaRb...
> SP1 has been released??
>
> --
> Veign
> www.veign.com
> <
> www.veign.com/download_application.html#Link200
> Code Samples & Sample Projects
> http://www.veign.com/information/application/info_app.html
> Submit Your Best Code (you keep the rights)
> http://www.veign.com/information/application/code_submit.html
> ---------
> "Sean Dotson"
> news:03D6E0B4CB2205E974C3C79089BD4003@in.WebX.maYIadrTaRb...
> > It loops (usually twice but up to infinity) in both 5.3 and 6 when I
have
> > the printer specified directly or use the default printer. Doesn't seem
> to
> > make a difference as to version.
> >
> > Was the bug in R6 and fixed in SP1. The particular machine I'm using
> > doesn't have SP1 loaded yet.
> >
> > --
> > Sean Dotson, PE
> > http://www.sdotson.com
> > ...sleep is for the weak..
> > -----------------------------------------
> > "Charles Bliss"
> > news:3DD26096.3020307@cbliss.com...
> > > Is this user on R6 SP1 (106) or R5.3? If not, setting
> > > PrintManager.Printer could be a dangerous thing as there was a defect
> > > and the printer name would not be properly set. Try setting
everything
> > > up with "5D PDF Creator" as the Windows default printer and make sure
> > > that is what Inventor is defaulting to then REM out the line in your
> > > code which is oPrintMgr.Printer = "5D PDF Creator"
> > >
> > > (then tell us if that was it)
> > >
> > > "Sean Dotson wrote:
> > >
> > > >For another user I pieced together a quick and dirty way for a user
to
> > > >a PDF (just calls the print routine) when the status of an IDW is set
> to
> > > >released. It works fine (print on a save) but for some reason after
it
> > > >prints to the PDF it try to print again. Loops sometimes once or
twice
> > and
> > > >sometimes forever. Thsi is the class module that is called by a
> sub..See
> > > >anything that jumps out at you?
> > > >
> > > >BTW you'll have to change the printer manager value to your printer
for
> > it
> > > >to run..... TIA
> > > >
> > > >
> > > >
> > > >Private WithEvents oApplicationEvents As ApplicationEvents
> > > >
> > > >Public Sub connect()
> > > > Set oApplicationEvents = ThisApplication.ApplicationEvents
> > > >End Sub
> > > >
> > > >
> > > >Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
> > > >Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
> > > >NameValueMap, HandlingCode As HandlingCodeEnum)
> > > >
> > > >'check to see if this is an IDW, if not then skip the whole macro
> > > >If ThisApplication.ActiveDocument.DocumentType =
kDrawingDocumentObject
> T
> > hen
> > > >
> > > >'Check if file is set to Released
> > > >
> > > > ' Declare the Application object
> > > >Dim oApplication As Inventor.Application
> > > >
> > > >' Obtain the Inventor Application object.
> > > >' This assumes Inventor is already running.
> > > >Set oApplication = GetObject(, "Inventor.Application")
> > > >
> > > >' Set a reference to the active document.
> > > >' This assumes a document is open.
> > > >Dim oDoc As Document
> > > >Set oDoc = oApplication.ActiveDocument
> > > >
> > > >' Obtain the PropertySets collection object
> > > >Dim oPropsets As PropertySets
> > > >Set oPropsets = oDoc.PropertySets
> > > >
> > > >' Access the value of the "Design Status" Property
> > > >Dim StatusValue As Variant
> > > >StatusValue =
> > >
> >
>
>oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
> > g
> > > >nStatusDesignTrackingProperties).Value
> > > >
> > > >'If set to Released then print PDF file
> > > >If StatusValue = "3" Then
> > > >
> > > >' Set a reference to the print manager object of the active document.
> > > > ' This will fail if a drawing document is not active.
> > > > Dim oPrintMgr As DrawingPrintManager
> > > > Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
> > > >
> > > > 'Set the printer
> > > > oPrintMgr.Printer = "5D PDF Creator"
> > > >
> > > > ' Set to print in color.
> > > > oPrintMgr.ColorMode = kPrintColorPalette
> > > >
> > > > ' Set to print two copies.
> > > > oPrintMgr.NumberOfCopies = 2
> > > >
> > > > ' Set to print using portrait orientation.
> > > > oPrintMgr.Orientation = kPortraitOrientation
> > > >
> > > > ' Set the paper size.
> > > > oPrintMgr.PaperSize = kPaperSize11x17
> > > >
> > > > ' Get the name of the printer that will be used.
> > > > If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you
want
> > to
> > > >continue?", vbYesNo + vbQuestion) = vbNo Then
> > > > ' Change to another printer.
> > > > Dim sPrinterName As String
> > > > sPrinterName = InputBox("Enter name of new printer:", "New
> > Printer")
> > > > If sPrinterName = "" Then
> > > > Exit Sub
> > > > Else
> > > > oPrintMgr.Printer = sPrinterName
> > > > End If
> > > > End If
> > > >
> > > > ' Set to print all sheets.
> > > > oPrintMgr.PrintRange = kPrintAllSheets
> > > >
> > > > ' Set to print full scale.
> > > > oPrintMgr.ScaleMode = kPrintBestFitScale
> > > >
> > > > ' Submit the print.
> > > > oPrintMgr.SubmitPrint
> > > >
> > > > ' Change the number of copies to 1.
> > > > oPrintMgr.NumberOfCopies = 1
> > > >
> > > > ' Change the paper size to a custom size. The units are in
> > centimeters.
> > > > oPrintMgr.PaperSize = kPaperSize11x17
> > > >
> > > > ' Get and set the current sheet range.
> > > > Dim iFromSheet As Long
> > > > Dim iToSheet As Long
> > > > Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
> > > >
> > > > ' Change the print range to print sheets 1 through 2.
> > > > oPrintMgr.PrintRange = kPrintSheetRange
> > > > Call oPrintMgr.SetSheetRange(1, 2)
> > > >
> > > > ' Submit the print.
> > > > oPrintMgr.SubmitPrint
> > > >
> > > >Else
> > > >End If
> > > >
> > > >Else
> > > >End If
> > > >
> > > >End Sub
> > > >
> > > >--
> > > >Sean Dotson, PE
> > > >http://www.sdotson.com
> > > >...sleep is for the weak..
> > > >-----------------------------------------
> > > >
> > > >
> > > >
> > > >
> > >
> >
> >
>
>
Message 7 of 10
Anonymous
in reply to:
Anonymous
11-12-2002
11:24 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-12-2002
11:24 PM
D'oh.. just found it...
I have two oPrintMgr.SubmitPrint
commands in the code...getting rid of one of them fixes the
problem
commands in the code...getting rid of one of them fixes the
problem
<bonehead> sorry....
but I wonder why i was getting three prints
sometimes?
sometimes?
--
Sean Dotson, PE
href="http://www.sdotson.com">http://www.sdotson.com
...sleep is for the
weak..
-----------------------------------------
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"Charles Bliss" <The
href="mailto:cbliss@cbliss.com">cbliss@cbliss.com> wrote in message
href="news:3DD266CE.1080502@cbliss.com">news:3DD266CE.1080502@cbliss.com...
bug was supposed to be fixed in R6SP1 (106). I haven't checked it in 106
yet. This problem did not exist in R5.3 so I suspect your problem is
elsewhere if the user is on R5.3sp2
@sean Dotson wrote:
type="cite">It loops (usually twice but up to infinity) in both 5.3 and 6 when I have
the printer specified directly or use the default printer. Doesn't seem to
make a difference as to version.
Was the bug in R6 and fixed in SP1. The particular machine I'm using
doesn't have SP1 loaded yet.
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
"Charles Bliss" <cbliss@cbliss.com> wrote in message
news:3DD26096.3020307@cbliss.com...
Is this user on R6 SP1 (106) or R5.3? If not, setting
PrintManager.Printer could be a dangerous thing as there was a defect
and the printer name would not be properly set. Try setting everything
up with "5D PDF Creator" as the Windows default printer and make sure
that is what Inventor is defaulting to then REM out the line in your
code which is oPrintMgr.Printer = "5D PDF Creator"
(then tell us if that was it)
"Sean Dotson wrote:
For another user I pieced together a quick and dirty way for a user to
a PDF (just calls the print routine) when the status of an IDW is set to
released. It works fine (print on a save) but for some reason after it
prints to the PDF it try to print again. Loops sometimes once or twice
and
sometimes forever. Thsi is the class module that is called by a sub..See
anything that jumps out at you?
BTW you'll have to change the printer manager value to your printer for
it
to run..... TIA
Private WithEvents oApplicationEvents As ApplicationEvents
Public Sub connect()
Set oApplicationEvents = ThisApplication.ApplicationEvents
End Sub
Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
NameValueMap, HandlingCode As HandlingCodeEnum)
'check to see if this is an IDW, if not then skip the whole macro
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject T
hen
'Check if file is set to Released
' Declare the Application object
Dim oApplication As Inventor.Application
' Obtain the Inventor Application object.
' This assumes Inventor is already running.
Set oApplication = GetObject(, "Inventor.Application")
' Set a reference to the active document.
' This assumes a document is open.
Dim oDoc As Document
Set oDoc = oApplication.ActiveDocument
' Obtain the PropertySets collection object
Dim oPropsets As PropertySets
Set oPropsets = oDoc.PropertySets
' Access the value of the "Design Status" Property
Dim StatusValue As Variant
StatusValue =
oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
g
nStatusDesignTrackingProperties).Value
'If set to Released then print PDF file
If StatusValue = "3" Then
' Set a reference to the print manager object of the active document.
' This will fail if a drawing document is not active.
Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
'Set the printer
oPrintMgr.Printer = "5D PDF Creator"
' Set to print in color.
oPrintMgr.ColorMode = kPrintColorPalette
' Set to print two copies.
oPrintMgr.NumberOfCopies = 2
' Set to print using portrait orientation.
oPrintMgr.Orientation = kPortraitOrientation
' Set the paper size.
oPrintMgr.PaperSize = kPaperSize11x17
' Get the name of the printer that will be used.
If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want
to
continue?", vbYesNo + vbQuestion) = vbNo Then
' Change to another printer.
Dim sPrinterName As String
sPrinterName = InputBox("Enter name of new printer:", "New
Printer")
If sPrinterName = "" Then
Exit Sub
Else
oPrintMgr.Printer = sPrinterName
End If
End If
' Set to print all sheets.
oPrintMgr.PrintRange = kPrintAllSheets
' Set to print full scale.
oPrintMgr.ScaleMode = kPrintBestFitScale
' Submit the print.
oPrintMgr.SubmitPrint
' Change the number of copies to 1.
oPrintMgr.NumberOfCopies = 1
' Change the paper size to a custom size. The units are in
centimeters.
oPrintMgr.PaperSize = kPaperSize11x17
' Get and set the current sheet range.
Dim iFromSheet As Long
Dim iToSheet As Long
Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
' Change the print range to print sheets 1 through 2.
oPrintMgr.PrintRange = kPrintSheetRange
Call oPrintMgr.SetSheetRange(1, 2)
' Submit the print.
oPrintMgr.SubmitPrint
Else
End If
Else
End If
End Sub
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
Message 8 of 10
Anonymous
in reply to:
Anonymous
11-13-2002
01:09 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-13-2002
01:09 AM
I think you also want to add a check at the top of
the function to check the value of the BeforeOrAfter argument. This event
should get fired twice when a document is saved, once before the save and then
again after. It wouldn't matter which one you listen for in this case, but
you only want to respond to one of them.
the function to check the value of the BeforeOrAfter argument. This event
should get fired twice when a document is saved, once before the save and then
again after. It wouldn't matter which one you listen for in this case, but
you only want to respond to one of them.
-Brian
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"Sean Dotson" <sean at sdotson dot com> wrote in message
href="news:1FDF4AF59379962294024FE4DF0165CB@in.WebX.maYIadrTaRb">news:1FDF4AF59379962294024FE4DF0......
D'oh.. just found it...
I have two oPrintMgr.SubmitPrint
commands in the code...getting rid of one of them fixes the
problem
<bonehead> sorry....
but I wonder why i was getting three prints
sometimes?
--
Sean Dotson, PE
href="http://www.sdotson.com">http://www.sdotson.com
...sleep is for
the weak..
-----------------------------------------
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"Charles Bliss" <The
href="mailto:cbliss@cbliss.com">cbliss@cbliss.com> wrote in message
href="news:3DD266CE.1080502@cbliss.com">news:3DD266CE.1080502@cbliss.com...
bug was supposed to be fixed in R6SP1 (106). I haven't checked it in
106 yet. This problem did not exist in R5.3 so I suspect your problem
is elsewhere if the user is on R5.3sp2
@sean Dotson wrote:
type="cite">It loops (usually twice but up to infinity) in both 5.3 and 6 when I have
the printer specified directly or use the default printer. Doesn't seem to
make a difference as to version.
Was the bug in R6 and fixed in SP1. The particular machine I'm using
doesn't have SP1 loaded yet.
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
"Charles Bliss" <cbliss@cbliss.com> wrote in message
news:3DD26096.3020307@cbliss.com...
Is this user on R6 SP1 (106) or R5.3? If not, setting
PrintManager.Printer could be a dangerous thing as there was a defect
and the printer name would not be properly set. Try setting everything
up with "5D PDF Creator" as the Windows default printer and make sure
that is what Inventor is defaulting to then REM out the line in your
code which is oPrintMgr.Printer = "5D PDF Creator"
(then tell us if that was it)
"Sean Dotson wrote:
For another user I pieced together a quick and dirty way for a user to
a PDF (just calls the print routine) when the status of an IDW is set to
released. It works fine (print on a save) but for some reason after it
prints to the PDF it try to print again. Loops sometimes once or twice
and
sometimes forever. Thsi is the class module that is called by a sub..See
anything that jumps out at you?
BTW you'll have to change the printer manager value to your printer for
it
to run..... TIA
Private WithEvents oApplicationEvents As ApplicationEvents
Public Sub connect()
Set oApplicationEvents = ThisApplication.ApplicationEvents
End Sub
Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
NameValueMap, HandlingCode As HandlingCodeEnum)
'check to see if this is an IDW, if not then skip the whole macro
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject T
hen
'Check if file is set to Released
' Declare the Application object
Dim oApplication As Inventor.Application
' Obtain the Inventor Application object.
' This assumes Inventor is already running.
Set oApplication = GetObject(, "Inventor.Application")
' Set a reference to the active document.
' This assumes a document is open.
Dim oDoc As Document
Set oDoc = oApplication.ActiveDocument
' Obtain the PropertySets collection object
Dim oPropsets As PropertySets
Set oPropsets = oDoc.PropertySets
' Access the value of the "Design Status" Property
Dim StatusValue As Variant
StatusValue =
oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
g
nStatusDesignTrackingProperties).Value
'If set to Released then print PDF file
If StatusValue = "3" Then
' Set a reference to the print manager object of the active document.
' This will fail if a drawing document is not active.
Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
'Set the printer
oPrintMgr.Printer = "5D PDF Creator"
' Set to print in color.
oPrintMgr.ColorMode = kPrintColorPalette
' Set to print two copies.
oPrintMgr.NumberOfCopies = 2
' Set to print using portrait orientation.
oPrintMgr.Orientation = kPortraitOrientation
' Set the paper size.
oPrintMgr.PaperSize = kPaperSize11x17
' Get the name of the printer that will be used.
If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want
to
continue?", vbYesNo + vbQuestion) = vbNo Then
' Change to another printer.
Dim sPrinterName As String
sPrinterName = InputBox("Enter name of new printer:", "New
Printer")
If sPrinterName = "" Then
Exit Sub
Else
oPrintMgr.Printer = sPrinterName
End If
End If
' Set to print all sheets.
oPrintMgr.PrintRange = kPrintAllSheets
' Set to print full scale.
oPrintMgr.ScaleMode = kPrintBestFitScale
' Submit the print.
oPrintMgr.SubmitPrint
' Change the number of copies to 1.
oPrintMgr.NumberOfCopies = 1
' Change the paper size to a custom size. The units are in
centimeters.
oPrintMgr.PaperSize = kPaperSize11x17
' Get and set the current sheet range.
Dim iFromSheet As Long
Dim iToSheet As Long
Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
' Change the print range to print sheets 1 through 2.
oPrintMgr.PrintRange = kPrintSheetRange
Call oPrintMgr.SetSheetRange(1, 2)
' Submit the print.
oPrintMgr.SubmitPrint
Else
End If
Else
End If
End Sub
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
Message 9 of 10
Anonymous
in reply to:
Anonymous
11-13-2002
02:30 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-13-2002
02:30 AM
Thanks Brian.
Declaring kAfter seemed to stabilize it a bit
more.
more.
--
Sean Dotson, PE
href="http://www.sdotson.com">http://www.sdotson.com
...sleep is for the
weak..
-----------------------------------------
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"Brian Ekins" <
href="mailto:brian.ekins@autodesk.com">brian.ekins@autodesk.com> wrote
in message
href="news:6830F9D990DB039A9ACE6E4BBE3465A4@in.WebX.maYIadrTaRb">news:6830F9D990DB039A9ACE6E4BBE3......
I think you also want to add a check at the top
of the function to check the value of the BeforeOrAfter argument. This
event should get fired twice when a document is saved, once before the save
and then again after. It wouldn't matter which one you listen for in
this case, but you only want to respond to one of them.
-Brian
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"Sean Dotson" <sean at sdotson dot com> wrote in message
href="news:1FDF4AF59379962294024FE4DF0165CB@in.WebX.maYIadrTaRb">news:1FDF4AF59379962294024FE4D......
D'oh.. just found it...
I have two oPrintMgr.SubmitPrint
commands in the code...getting rid of one of them fixes the
problem
<bonehead> sorry....
but I wonder why i was getting three prints
sometimes?
--
Sean Dotson, PE
href="http://www.sdotson.com">http://www.sdotson.com
...sleep is for
the weak..
-----------------------------------------
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"Charles Bliss" <The
href="mailto:cbliss@cbliss.com">cbliss@cbliss.com> wrote in message
href="news:3DD266CE.1080502@cbliss.com">news:3DD266CE.1080502@cbliss.com...
bug was supposed to be fixed in R6SP1 (106). I haven't checked it in
106 yet. This problem did not exist in R5.3 so I suspect your
problem is elsewhere if the user is on R5.3sp2
Sean Dotson
@ wrote:
cite="mid03D6E0B4CB2205E974C3C79089BD4003@in.WebX.maYIadrTaRb">It loops (usually twice but up to infinity) in both 5.3 and 6 when I have
the printer specified directly or use the default printer. Doesn't seem to
make a difference as to version.
Was the bug in R6 and fixed in SP1. The particular machine I'm using
doesn't have SP1 loaded yet.
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
"Charles Bliss" <cbliss@cbliss.com> wrote in message
news:3DD26096.3020307@cbliss.com...
Is this user on R6 SP1 (106) or R5.3? If not, setting
PrintManager.Printer could be a dangerous thing as there was a defect
and the printer name would not be properly set. Try setting everything
up with "5D PDF Creator" as the Windows default printer and make sure
that is what Inventor is defaulting to then REM out the line in your
code which is oPrintMgr.Printer = "5D PDF Creator"
(then tell us if that was it)
"Sean Dotson wrote:
For another user I pieced together a quick and dirty way for a user to
a PDF (just calls the print routine) when the status of an IDW is set to
released. It works fine (print on a save) but for some reason after it
prints to the PDF it try to print again. Loops sometimes once or twice
and
sometimes forever. Thsi is the class module that is called by a sub..See
anything that jumps out at you?
BTW you'll have to change the printer manager value to your printer for
it
to run..... TIA
Private WithEvents oApplicationEvents As ApplicationEvents
Public Sub connect()
Set oApplicationEvents = ThisApplication.ApplicationEvents
End Sub
Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject As
Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
NameValueMap, HandlingCode As HandlingCodeEnum)
'check to see if this is an IDW, if not then skip the whole macro
If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject T
hen
'Check if file is set to Released
' Declare the Application object
Dim oApplication As Inventor.Application
' Obtain the Inventor Application object.
' This assumes Inventor is already running.
Set oApplication = GetObject(, "Inventor.Application")
' Set a reference to the active document.
' This assumes a document is open.
Dim oDoc As Document
Set oDoc = oApplication.ActiveDocument
' Obtain the PropertySets collection object
Dim oPropsets As PropertySets
Set oPropsets = oDoc.PropertySets
' Access the value of the "Design Status" Property
Dim StatusValue As Variant
StatusValue =
oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
g
nStatusDesignTrackingProperties).Value
'If set to Released then print PDF file
If StatusValue = "3" Then
' Set a reference to the print manager object of the active document.
' This will fail if a drawing document is not active.
Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
'Set the printer
oPrintMgr.Printer = "5D PDF Creator"
' Set to print in color.
oPrintMgr.ColorMode = kPrintColorPalette
' Set to print two copies.
oPrintMgr.NumberOfCopies = 2
' Set to print using portrait orientation.
oPrintMgr.Orientation = kPortraitOrientation
' Set the paper size.
oPrintMgr.PaperSize = kPaperSize11x17
' Get the name of the printer that will be used.
If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you want
to
continue?", vbYesNo + vbQuestion) = vbNo Then
' Change to another printer.
Dim sPrinterName As String
sPrinterName = InputBox("Enter name of new printer:", "New
Printer")
If sPrinterName = "" Then
Exit Sub
Else
oPrintMgr.Printer = sPrinterName
End If
End If
' Set to print all sheets.
oPrintMgr.PrintRange = kPrintAllSheets
' Set to print full scale.
oPrintMgr.ScaleMode = kPrintBestFitScale
' Submit the print.
oPrintMgr.SubmitPrint
' Change the number of copies to 1.
oPrintMgr.NumberOfCopies = 1
' Change the paper size to a custom size. The units are in
centimeters.
oPrintMgr.PaperSize = kPaperSize11x17
' Get and set the current sheet range.
Dim iFromSheet As Long
Dim iToSheet As Long
Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
' Change the print range to print sheets 1 through 2.
oPrintMgr.PrintRange = kPrintSheetRange
Call oPrintMgr.SetSheetRange(1, 2)
' Submit the print.
oPrintMgr.SubmitPrint
Else
End If
Else
End If
End Sub
--
Sean Dotson, PE
http://www.sdotson.com
...sleep is for the weak..
-----------------------------------------
Message 10 of 10
Anonymous
in reply to:
Anonymous
11-14-2002
03:53 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-14-2002
03:53 AM
boo.... thanks Sean!
I'll lurk here as well! I forgot about this group!
"Sean Dotson" wrote in message
news:22B4A0AC2138E1EF1EE907A187713A38@in.WebX.maYIadrTaRb...
> for ADN members and other select testers. Public release is scheduled for
> Nov 15th to the best of my knowledge.
>
> --
> Sean Dotson, PE
> http://www.sdotson.com
> ...sleep is for the weak..
> -----------------------------------------
> "Veign" wrote in message
> news:C8223F272D92BDF6060F88E141609CD7@in.WebX.maYIadrTaRb...
> > SP1 has been released??
> >
> > --
> > Veign
> > www.veign.com
> > <> - Bigger, Better, Cleaner!
> > www.veign.com/download_application.html#Link200
> > Code Samples & Sample Projects
> > http://www.veign.com/information/application/info_app.html
> > Submit Your Best Code (you keep the rights)
> > http://www.veign.com/information/application/code_submit.html
> > ---------
> > "Sean Dotson" wrote in message
> > news:03D6E0B4CB2205E974C3C79089BD4003@in.WebX.maYIadrTaRb...
> > > It loops (usually twice but up to infinity) in both 5.3 and 6 when I
> have
> > > the printer specified directly or use the default printer. Doesn't
seem
> > to
> > > make a difference as to version.
> > >
> > > Was the bug in R6 and fixed in SP1. The particular machine I'm using
> > > doesn't have SP1 loaded yet.
> > >
> > > --
> > > Sean Dotson, PE
> > > http://www.sdotson.com
> > > ...sleep is for the weak..
> > > -----------------------------------------
> > > "Charles Bliss" wrote in message
> > > news:3DD26096.3020307@cbliss.com...
> > > > Is this user on R6 SP1 (106) or R5.3? If not, setting
> > > > PrintManager.Printer could be a dangerous thing as there was a
defect
> > > > and the printer name would not be properly set. Try setting
> everything
> > > > up with "5D PDF Creator" as the Windows default printer and make
sure
> > > > that is what Inventor is defaulting to then REM out the line in your
> > > > code which is oPrintMgr.Printer = "5D PDF Creator"
> > > >
> > > > (then tell us if that was it)
> > > >
> > > > "Sean Dotson wrote:
> > > >
> > > > >For another user I pieced together a quick and dirty way for a user
> to
> > > print
> > > > >a PDF (just calls the print routine) when the status of an IDW is
set
> > to
> > > > >released. It works fine (print on a save) but for some reason
after
> it
> > > > >prints to the PDF it try to print again. Loops sometimes once or
> twice
> > > and
> > > > >sometimes forever. Thsi is the class module that is called by a
> > sub..See
> > > > >anything that jumps out at you?
> > > > >
> > > > >BTW you'll have to change the printer manager value to your printer
> for
> > > it
> > > > >to run..... TIA
> > > > >
> > > > >
> > > > >
> > > > >Private WithEvents oApplicationEvents As ApplicationEvents
> > > > >
> > > > >Public Sub connect()
> > > > > Set oApplicationEvents = ThisApplication.ApplicationEvents
> > > > >End Sub
> > > > >
> > > > >
> > > > >Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject
As
> > > > >Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
> > > > >NameValueMap, HandlingCode As HandlingCodeEnum)
> > > > >
> > > > >'check to see if this is an IDW, if not then skip the whole macro
> > > > >If ThisApplication.ActiveDocument.DocumentType =
> kDrawingDocumentObject
> > T
> > > hen
> > > > >
> > > > >'Check if file is set to Released
> > > > >
> > > > > ' Declare the Application object
> > > > >Dim oApplication As Inventor.Application
> > > > >
> > > > >' Obtain the Inventor Application object.
> > > > >' This assumes Inventor is already running.
> > > > >Set oApplication = GetObject(, "Inventor.Application")
> > > > >
> > > > >' Set a reference to the active document.
> > > > >' This assumes a document is open.
> > > > >Dim oDoc As Document
> > > > >Set oDoc = oApplication.ActiveDocument
> > > > >
> > > > >' Obtain the PropertySets collection object
> > > > >Dim oPropsets As PropertySets
> > > > >Set oPropsets = oDoc.PropertySets
> > > > >
> > > > >' Access the value of the "Design Status" Property
> > > > >Dim StatusValue As Variant
> > > > >StatusValue =
> > > >
> > >
> >
>
>oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
> > > g
> > > > >nStatusDesignTrackingProperties).Value
> > > > >
> > > > >'If set to Released then print PDF file
> > > > >If StatusValue = "3" Then
> > > > >
> > > > >' Set a reference to the print manager object of the active
document.
> > > > > ' This will fail if a drawing document is not active.
> > > > > Dim oPrintMgr As DrawingPrintManager
> > > > > Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
> > > > >
> > > > > 'Set the printer
> > > > > oPrintMgr.Printer = "5D PDF Creator"
> > > > >
> > > > > ' Set to print in color.
> > > > > oPrintMgr.ColorMode = kPrintColorPalette
> > > > >
> > > > > ' Set to print two copies.
> > > > > oPrintMgr.NumberOfCopies = 2
> > > > >
> > > > > ' Set to print using portrait orientation.
> > > > > oPrintMgr.Orientation = kPortraitOrientation
> > > > >
> > > > > ' Set the paper size.
> > > > > oPrintMgr.PaperSize = kPaperSize11x17
> > > > >
> > > > > ' Get the name of the printer that will be used.
> > > > > If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you
> want
> > > to
> > > > >continue?", vbYesNo + vbQuestion) = vbNo Then
> > > > > ' Change to another printer.
> > > > > Dim sPrinterName As String
> > > > > sPrinterName = InputBox("Enter name of new printer:", "New
> > > Printer")
> > > > > If sPrinterName = "" Then
> > > > > Exit Sub
> > > > > Else
> > > > > oPrintMgr.Printer = sPrinterName
> > > > > End If
> > > > > End If
> > > > >
> > > > > ' Set to print all sheets.
> > > > > oPrintMgr.PrintRange = kPrintAllSheets
> > > > >
> > > > > ' Set to print full scale.
> > > > > oPrintMgr.ScaleMode = kPrintBestFitScale
> > > > >
> > > > > ' Submit the print.
> > > > > oPrintMgr.SubmitPrint
> > > > >
> > > > > ' Change the number of copies to 1.
> > > > > oPrintMgr.NumberOfCopies = 1
> > > > >
> > > > > ' Change the paper size to a custom size. The units are in
> > > centimeters.
> > > > > oPrintMgr.PaperSize = kPaperSize11x17
> > > > >
> > > > > ' Get and set the current sheet range.
> > > > > Dim iFromSheet As Long
> > > > > Dim iToSheet As Long
> > > > > Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
> > > > >
> > > > > ' Change the print range to print sheets 1 through 2.
> > > > > oPrintMgr.PrintRange = kPrintSheetRange
> > > > > Call oPrintMgr.SetSheetRange(1, 2)
> > > > >
> > > > > ' Submit the print.
> > > > > oPrintMgr.SubmitPrint
> > > > >
> > > > >Else
> > > > >End If
> > > > >
> > > > >Else
> > > > >End If
> > > > >
> > > > >End Sub
> > > > >
> > > > >--
> > > > >Sean Dotson, PE
> > > > >http://www.sdotson.com
> > > > >...sleep is for the weak..
> > > > >-----------------------------------------
> > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> >
> >
>
>
I'll lurk here as well! I forgot about this group!
"Sean Dotson"
news:22B4A0AC2138E1EF1EE907A187713A38@in.WebX.maYIadrTaRb...
> for ADN members and other select testers. Public release is scheduled for
> Nov 15th to the best of my knowledge.
>
> --
> Sean Dotson, PE
> http://www.sdotson.com
> ...sleep is for the weak..
> -----------------------------------------
> "Veign"
> news:C8223F272D92BDF6060F88E141609CD7@in.WebX.maYIadrTaRb...
> > SP1 has been released??
> >
> > --
> > Veign
> > www.veign.com
> > <
> > www.veign.com/download_application.html#Link200
> > Code Samples & Sample Projects
> > http://www.veign.com/information/application/info_app.html
> > Submit Your Best Code (you keep the rights)
> > http://www.veign.com/information/application/code_submit.html
> > ---------
> > "Sean Dotson"
> > news:03D6E0B4CB2205E974C3C79089BD4003@in.WebX.maYIadrTaRb...
> > > It loops (usually twice but up to infinity) in both 5.3 and 6 when I
> have
> > > the printer specified directly or use the default printer. Doesn't
seem
> > to
> > > make a difference as to version.
> > >
> > > Was the bug in R6 and fixed in SP1. The particular machine I'm using
> > > doesn't have SP1 loaded yet.
> > >
> > > --
> > > Sean Dotson, PE
> > > http://www.sdotson.com
> > > ...sleep is for the weak..
> > > -----------------------------------------
> > > "Charles Bliss"
> > > news:3DD26096.3020307@cbliss.com...
> > > > Is this user on R6 SP1 (106) or R5.3? If not, setting
> > > > PrintManager.Printer could be a dangerous thing as there was a
defect
> > > > and the printer name would not be properly set. Try setting
> everything
> > > > up with "5D PDF Creator" as the Windows default printer and make
sure
> > > > that is what Inventor is defaulting to then REM out the line in your
> > > > code which is oPrintMgr.Printer = "5D PDF Creator"
> > > >
> > > > (then tell us if that was it)
> > > >
> > > > "Sean Dotson wrote:
> > > >
> > > > >For another user I pieced together a quick and dirty way for a user
> to
> > > > >a PDF (just calls the print routine) when the status of an IDW is
set
> > to
> > > > >released. It works fine (print on a save) but for some reason
after
> it
> > > > >prints to the PDF it try to print again. Loops sometimes once or
> twice
> > > and
> > > > >sometimes forever. Thsi is the class module that is called by a
> > sub..See
> > > > >anything that jumps out at you?
> > > > >
> > > > >BTW you'll have to change the printer manager value to your printer
> for
> > > it
> > > > >to run..... TIA
> > > > >
> > > > >
> > > > >
> > > > >Private WithEvents oApplicationEvents As ApplicationEvents
> > > > >
> > > > >Public Sub connect()
> > > > > Set oApplicationEvents = ThisApplication.ApplicationEvents
> > > > >End Sub
> > > > >
> > > > >
> > > > >Private Sub oApplicationEvents_OnSaveDocument(ByVal DocumentObject
As
> > > > >Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As
> > > > >NameValueMap, HandlingCode As HandlingCodeEnum)
> > > > >
> > > > >'check to see if this is an IDW, if not then skip the whole macro
> > > > >If ThisApplication.ActiveDocument.DocumentType =
> kDrawingDocumentObject
> > T
> > > hen
> > > > >
> > > > >'Check if file is set to Released
> > > > >
> > > > > ' Declare the Application object
> > > > >Dim oApplication As Inventor.Application
> > > > >
> > > > >' Obtain the Inventor Application object.
> > > > >' This assumes Inventor is already running.
> > > > >Set oApplication = GetObject(, "Inventor.Application")
> > > > >
> > > > >' Set a reference to the active document.
> > > > >' This assumes a document is open.
> > > > >Dim oDoc As Document
> > > > >Set oDoc = oApplication.ActiveDocument
> > > > >
> > > > >' Obtain the PropertySets collection object
> > > > >Dim oPropsets As PropertySets
> > > > >Set oPropsets = oDoc.PropertySets
> > > > >
> > > > >' Access the value of the "Design Status" Property
> > > > >Dim StatusValue As Variant
> > > > >StatusValue =
> > > >
> > >
> >
>
>oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kDesi
> > > g
> > > > >nStatusDesignTrackingProperties).Value
> > > > >
> > > > >'If set to Released then print PDF file
> > > > >If StatusValue = "3" Then
> > > > >
> > > > >' Set a reference to the print manager object of the active
document.
> > > > > ' This will fail if a drawing document is not active.
> > > > > Dim oPrintMgr As DrawingPrintManager
> > > > > Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
> > > > >
> > > > > 'Set the printer
> > > > > oPrintMgr.Printer = "5D PDF Creator"
> > > > >
> > > > > ' Set to print in color.
> > > > > oPrintMgr.ColorMode = kPrintColorPalette
> > > > >
> > > > > ' Set to print two copies.
> > > > > oPrintMgr.NumberOfCopies = 2
> > > > >
> > > > > ' Set to print using portrait orientation.
> > > > > oPrintMgr.Orientation = kPortraitOrientation
> > > > >
> > > > > ' Set the paper size.
> > > > > oPrintMgr.PaperSize = kPaperSize11x17
> > > > >
> > > > > ' Get the name of the printer that will be used.
> > > > > If MsgBox("Using printer """ & oPrintMgr.Printer & """ Do you
> want
> > > to
> > > > >continue?", vbYesNo + vbQuestion) = vbNo Then
> > > > > ' Change to another printer.
> > > > > Dim sPrinterName As String
> > > > > sPrinterName = InputBox("Enter name of new printer:", "New
> > > Printer")
> > > > > If sPrinterName = "" Then
> > > > > Exit Sub
> > > > > Else
> > > > > oPrintMgr.Printer = sPrinterName
> > > > > End If
> > > > > End If
> > > > >
> > > > > ' Set to print all sheets.
> > > > > oPrintMgr.PrintRange = kPrintAllSheets
> > > > >
> > > > > ' Set to print full scale.
> > > > > oPrintMgr.ScaleMode = kPrintBestFitScale
> > > > >
> > > > > ' Submit the print.
> > > > > oPrintMgr.SubmitPrint
> > > > >
> > > > > ' Change the number of copies to 1.
> > > > > oPrintMgr.NumberOfCopies = 1
> > > > >
> > > > > ' Change the paper size to a custom size. The units are in
> > > centimeters.
> > > > > oPrintMgr.PaperSize = kPaperSize11x17
> > > > >
> > > > > ' Get and set the current sheet range.
> > > > > Dim iFromSheet As Long
> > > > > Dim iToSheet As Long
> > > > > Call oPrintMgr.GetSheetRange(iFromSheet, iToSheet)
> > > > >
> > > > > ' Change the print range to print sheets 1 through 2.
> > > > > oPrintMgr.PrintRange = kPrintSheetRange
> > > > > Call oPrintMgr.SetSheetRange(1, 2)
> > > > >
> > > > > ' Submit the print.
> > > > > oPrintMgr.SubmitPrint
> > > > >
> > > > >Else
> > > > >End If
> > > > >
> > > > >Else
> > > > >End If
> > > > >
> > > > >End Sub
> > > > >
> > > > >--
> > > > >Sean Dotson, PE
> > > > >http://www.sdotson.com
> > > > >...sleep is for the weak..
> > > > >-----------------------------------------
> > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> >
> >
>
>
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")