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 |