RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo respuestas@lawebdelprogramador.com

    Pregunta:  51739 - IMPRESIóN EN AUTOCAD
Autor:  Adriano Teruel González
Quiero hacer una macro que, una vez hecha una configuración de impresión en una presentación , lo transmita al resto de presentaciones. El código que he hecho es el siguiente pero no funciona:

Set AcadDoc = GetObject(, "Autocad.Application.16").ActiveDocument
Dim configuracion As AcadPlotConfiguration
Dim a, i As Byte

' Capta la colección de configuraciones de ploteo del documento
Set PlotConfigurations = ThisDrawing.PlotConfigurations

UserForm1.hide
On Error Resume Next

'a contiene el nº de presentaciones que tiene el dibujo
a = ActiveDocument.Layouts.Count

For i = 4 To a - 2
'Selecciona cada una de las presentaciones
ActiveDocument.ActiveLayout = ActiveDocument.Layouts.Item(i)
ActiveLayout.ConfigName = "Config" ' Config es la configuracion previamente reada
Next i
End Sub

Gracias de antemano


Nombre
Apellidos
Correo
Comentarios

Revisar política de publicidad