Border line in drawing

[Anonymous]

Hello

I have a template of idw and i need to create 4 sheets from that. but when i creat sheet it takes the border.

For example:

1) 1 sheet A4 and border is A4

2) 2 sheet A3 and border is A4 ( but required is A3 in border ) Every time i need to delete the border of old & add new. so how to set like if i select A2, A2 border it has to choose. how to link.

[Anonymous]

Hi

I use i-logic code set in the template and linked to a Form Button. This code was copied from Curtis Waguespack

blog and lots of hint and tips from this sight. It might work with your workflow,

trigger = iTrigger0

kLandscapePageOrientation = 10242
kPortraitPageOrientation = 10243

If Border = "A4" Then
ThisApplication.ActiveDocument.ActiveSheet.Orientation  = kPortraitPageOrientation
ActiveSheet.ChangeSize("A4", MoveBorderItems := True)
ActiveSheet.TitleBlock = "ISD-A4"
ActiveSheet.Border = "Default Border"
ThisApplication.ActiveView.Fit
iLogicVb.UpdateWhenDone=True

ElseIf Border = "A3" Then
ThisApplication.ActiveDocument.ActiveSheet.Orientation  = kLandscapePageOrientation
ActiveSheet.ChangeSize("A3", MoveBorderItems := True)
ActiveSheet.TitleBlock = "ISD"
ActiveSheet.Border = "Default Border"
ThisApplication.ActiveView.Fit
iLogicVb.UpdateWhenDone=True

ElseIf Border = "A2" Then
ThisApplication.ActiveDocument.ActiveSheet.Orientation  = kLandscapePageOrientation
ActiveSheet.ChangeSize("A2", MoveBorderItems := True)
ActiveSheet.TitleBlock = "ISD"
ActiveSheet.Border = "Default Border"
ThisApplication.ActiveView.Fit
iLogicVb.UpdateWhenDone=True

ElseIf Border = "A1" Then
ThisApplication.ActiveDocument.ActiveSheet.Orientation  = kLandscapePageOrientation
ActiveSheet.ChangeSize("A1", MoveBorderItems := True)
ActiveSheet.TitleBlock = "ISD"
ActiveSheet.Border = "Default Border"
ThisApplication.ActiveView.Fit
iLogicVb.UpdateWhenDone=True

ElseIf Border = "A0" Then
ThisApplication.ActiveDocument.ActiveSheet.Orientation  = kLandscapePageOrientation
ActiveSheet.ChangeSize("A0", MoveBorderItems := True)
ActiveSheet.TitleBlock = "ISD"
ActiveSheet.Border = "Default Border"
ThisApplication.ActiveView.Fit
iLogicVb.UpdateWhenDone=True

End If

[Anonymous]

@Anonymous Dear sir,

Please can you send the video. how to set. it would be helpful for me.

[Anonymous]

Hi Marshal,

I dont have the ability to screen cast here (the I.T. depo won,t allow it) - sorry

But I highly recommend you read Curtis blog

http://inventortrenches.blogspot.co.uk/