ublic Sub PlotFunction(PrinterName As String, Styles As String, MediaName As String, Copies As Integer, AutoMedia As Boolean, AutoRotate As Boolean, AutoClose As Boolean, AutoFrame As Boolean) On Error Resume Next Dim Ent As AcadEntity Dim PlotCount As Integer Dim i As Integer, j As
