Acad2002: make a layout current

[Sandieslover]

Hi guys,

my selfconfidence sunk below zero, 'cause I'm not able to activate a different layout in VBA.

The help file points to the code "ActiveLayout" but I can't make it work.

I use the code
[VBA]ThisDrawing.ActiveLayout = "LayoutA4"[/VBA]
But get an Compile error, Type mismatch
And yes... there is a layout called LayoutA4

Please, can someone help me out?

Thx in advance,

Sandieslover

[lucas]

A layout is a tabbed layout I think...not a print layout
post the rest of your code please.

[Sandieslover]

Actualy there isn't much more...
[VBA]Sub LayoutA4Current()
ThisDrawing.Layouts.Item("Layout1").Delete
ThisDrawing.ActiveLayout = "LayoutA4"
End Sub
[/VBA]
It deletes the default layout called "Layout1" (This does work),
but making the other one current is a bit of a problem, although the help file points in this direction.

Kind regards,
Sandieslover

[Sandieslover]

Hi Lucas,
in addition, this is what acad help says:

To add a new Layout to the collection, use the Add method. When a new layout is created, it is not automatically made current. To make a layout current, use the ActiveLayout property.

When clicking on the ActiveLayout link, I'm lost.

[malik641]

Hi SandieSlover and Welcome

Give this a try:

[vba]
Sub Test()
ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item("LayoutA4")
End Sub
[/vba]

Worked for me (but I'm using ACAD 2004)

[lucas]

Worked for me too. I also am running 2004

[Sandieslover]

Thanx guys!
This works like a charm for me too.

As the help file only pointed me into the direction of the "activelayout" command, the nearest example I could find was the "Make a layer current" and this piece of code just used the layername.
Translating this to my layout problem I only thought of the layout name, instead of the whole Thisdrawing..... code.

Thanx for your time and efforts,

Kind regards,
Sandieslover