不打开cad文档打印批量文件〔依据编组图框〕.docxVIP

Sub 不打开文档打印()Dim nam As Stringnam = 临时Dim doc As AcadDocumentSet doc = ThisDrawing.Application.Documents.Add(nam)Dim mydocPathname = C:\Users\wzm1968yhm\Desktop\需要批量打印的图纸 所有图需放在桌面上的这个文件夹中Dim fso As ObjectSet fso = CreateObject(Scripting.FileSystemObject)Dim fdSet fd = fso.GetFolder(Pathname)MsgBoxfd.Files.CountFor Each thing In fd.FilesMsgBoxthing.NameIf Right(thing.Name, 3) = bak Thenthing.DeleteEnd IfNextFor Each thing In fd.FilesMsgBoxthing.NameSet mydoc = ThisDrawing.Application.Documents.Open(Pathname \ thing.Name) mydoc.ActivateMsgBoxmydoc.NameDim mygroup As AcadGroupsDim pMin, pMax As VariantDim tpMin, tpMax As VariantFor Each frmgrp In ThisDrawing.Groupsn = frmgrp.CountIf n 0 Thenfrmgrp.Item(0).GetBoundingBoxpMin, pMaxFor i = 0 To n - 1frmgrp.Item(i).GetBoundingBoxtpMin, tpMaxIf tpMin(0) pMin(0) ThenpMin = tpMinEnd IfIf tpMin(1) pMin(1) ThenpMin = tpMinEnd IfIf tpMax(0) pMax(0) ThenpMax = tpMaxEnd IfIf tpMax(1) pMax(1) ThenpMax = tpMaxEnd IfNextThisDrawing.ModelSpace.AddPointpMinThisDrawing.ModelSpace.AddPointpMaxSet objDoc = ThisDrawing.Application.ActiveDocumentSet objLayout = objDoc.Layouts.Item(Model)Dim ppmin(1) As DoubleDim ppmax(1) As Doubleppmin(0) = pMin(0)ppmin(1) = pMin(1)ppmax(0) = pMax(0)ppmax(1) = pMax(1)objDoc.RegenacAllViewportsThisDrawing.ActiveLayout.SetWindowToPlotppmin, ppmaxobjLayout.PlotType = acWindowobjLayout.ConfigName = samsung scx-4x21 seriesobjLayout.StyleSheet = acad.ctbobjLayout.CanonicalMediaName = A4objLayout.PaperUnits = acMillimetersobjLayout.PlotRotation = ac0degrees objLayout.StandardScale = acScaleToFitobjLayout.UseStandardScale = True objLayout.CenterPlot = True objLayout.PlotWithLineweights = True Set objPlot = objDoc.PlotobjPlot.NumberOfCopies = 1 objLayout.PlotWithPlotStyles = TrueobjDoc.SetVariable BACKGROUNDPLOT, 0 objPlot.DisplayPlotPreviewacFullPreviewobjPlot.PlotToDeviceobjLayout.ConfigNameEnd IfIf n = 0 Thenfrmgrp.DeleteEnd IfNextmydoc.Close FalseNextEnd Sub