plotting all open drawings problems

[Anonymous]

The problem is at least one of the plots will not be centered. if i re-plot it with the same settings it'll be fine. this will happen to only one drawing.

Public Sub PlotAllOpenDwgs()

Dim acadDoc As AcadDocument
Dim i As Integer

For i = 0 To AutoCAD.Documents.Count - 1

Set acadDoc = AutoCAD.Documents(i)
acadDoc.Activate

DoEvents

Call acadDoc.ModelSpace.Layout.RefreshPlotDeviceInfo

acadDoc.ModelSpace.Layout.CenterPlot = True
acadDoc.ModelSpace.Layout.PlotType = acExtents
acadDoc.ModelSpace.Layout.StandardScale = acScaleToFit
acadDoc.ModelSpace.Layout.PlotType = acExtents
acadDoc.ModelSpace.Layout.ScaleLineweights = False
acadDoc.ModelSpace.Layout.CenterPlot = True
acadDoc.ModelSpace.Layout.PlotRotation = ac90degrees
acadDoc.ModelSpace.Layout.ConfigName = "\\AAD-TERMINAL\TOSHIBA 810 R1"

Call acadDoc.ModelSpace.Layout.RefreshPlotDeviceInfo

acadDoc.ModelSpace.Layout.CanonicalMediaName = "11x17"
acadDoc.ModelSpace.Layout.CenterPlot = True
acadDoc.ModelSpace.Layout.PlotType = acExtents

acadDoc.Plot.NumberOfCopies = 1

acadDoc.Plot.PlotToDevice

DoEvents
Next i

MsgBox "Done. All open DWG's plotted."
End Sub Message was edited by: dahovey