Page Setup Override in Sheet Set

[mcoffman]

Does anyone know how to set the page setup override template in a sheetset via vba?

Thanks!
MC

[RobertB]

Use the SetAltPageSetups method.

[mcoffman]

Thanks Robert!

I tried this bit of code after your advice and I keep getting a "Object Block or With Block not set" error. Any ideas?



'Create a reference to a File Reference object
Dim TempRef As IAcSmFileReference
Set TempRef = oSheetDb.GetSheetSet().GetAltPageSetups()
TempRef.SetFileName cstrOvrTemplate

'Set the default template location
oSheetDb.GetSheetSet().SetAltPageSetups TempRef


Thanks!
Michael

[Ed Jobe]

Have you set/created oSheetDb?

[mcoffman]

Have you set/created oSheetDb?

Yes, I have. Below is the complete function in which the offending piece of code occurs:



'Setup the Sheet Set Defaults
Private Sub SetSheetSetDefaults(oSheetDb As AcSmDatabase, strName As String, strDesc As String, Optional strNewSheetLocation As String = "", Optional strNewSheetDWTLocation As String = "", _
Optional strNewSheetDWTLayout As String = "", Optional bPromptForDWT As Boolean = False)

'Set the Name and Description for the Sheet Set
oSheetDb.GetSheetSet().SetName strName
oSheetDb.GetSheetSet().SetDesc strDesc

'Check to see if a Storage Location was provided
If strNewSheetLocation <> "" Then
'Get the Folder the Sheet Set is Stored in
Dim strSheetSetFldr As String
strSheetSetFldr = Mid(oSheetDb.GetFileName, 1, InStrRev(oSheetDb.GetFileName, "\"))

'Create a reference to a File Reference object
Dim oFileRef As IAcSmFileReference
Set oFileRef = oSheetDb.GetSheetSet().GetNewSheetLocation

'Set the default storage location based on the Sheet Sets location
oFileRef.SetFileName strSheetSetFldr

'Set the new Sheet location for the Sheet Set
oSheetDb.GetSheetSet().SetNewSheetLocation oFileRef
End If

'Set override template location.
'Create a reference to a File Reference object
Dim TempRef As IAcSmFileReference
Set TempRef = oSheetDb.GetSheetSet().GetAltPageSetups()
TempRef.SetFileName cstrOvrTemplate

'Set the default template location
oSheetDb.GetSheetSet().SetAltPageSetups TempRef

'Check to see if a Template was provided
If strNewSheetDWTLocation <> "" Then
'Add Default Template to Sheet Set
Dim oLayoutRef As AcSmAcDbLayoutReference
Set oLayoutRef = oSheetDb.GetSheetSet().GetDefDwtLayout

'Set the location of the template in the Layout Reference object
oLayoutRef.SetFileName strNewSheetDWTLocation

'Set the Layout name for the Layout Reference object
oLayoutRef.SetName strNewSheetDWTLayout

'Set the Layout Reference to the Subset
oSheetDb.GetSheetSet().SetDefDwtLayout oLayoutRef
End If

'Set the Prompt for Template option of the Subset when a new Sheet is created
oSheetDb.GetSheetSet().SetPromptForDwt bPromptForDWT

End Sub


When I get to debug mode, it's the "TempRef.SetFileName" line that is highlighted so I'm assuming it has something to do with my "Set TempRef" code.

[RobertB]

Yes, I have. Below is the complete function in which the offending piece of code occurs:
...
When I get to debug mode, it's the "TempRef.SetFileName" line that is highlighted so I'm assuming it has something to do with my "Set TempRef" code.cstrOvrTemplate is not bound. You are writing code with Option Explict, aren't you? If you are, when you attempted to compile you would get an error because cstrOvrTemplate was not declared.

[mcoffman]

cstrOvrTemplate is not bound. You are writing code with Option Explict, aren't you? If you are, when you attempted to compile you would get an error because cstrOvrTemplate was not declared.

Sorry, I should have clarified that. cstrOvrTemplate is a constant and dimensioned in the General Declarations area of the code. Yes, I code with Option Explicit.

MC