Merci de ton code Solyrics, je m'en suis inspiré pour créer le mien...car ton code ne fonctionnait comme tel. je suis sur autocad electrical 2008. ma macro ouvre un fichier, fait un zoom étendu et l'imprime en pdf. pour ta question, je ne peux pas te répondre, je ne suis pas assez caler sur vba autocad merci en tout cas à tout le monde de m'avoir aidé.... Guillaume Dim Layout As AcadLayout Dim fichier As String Dim AutoCAD As New AcadApplication Dim Print1 As String 'Variable identifiant le nom de l 'imprimante Dim Paper1 As String 'Variable identifiant le nom du format de papier Dim DWGName As String Dim activeStatus As String Dim Drawing As AcadDocument Sub Zoom_etendu() Paper1 = "DWG To PDF.pc3" 'déclaration de l'imprimante fichier = "c:\testautocad\Grille de révision.dwg" ThisDrawing.Application.Documents.Open fichier 'se met en espace papier ThisDrawing.ActiveSpace = acPaperSpace Set pspace = ThisDrawing.PaperSpace ' fait un zoom etendu dans la fenetre active ThisDrawing.Application.ZoomExtents 'configuration de l'impression ThisDrawing.ActiveLayout.PaperUnits = AcPlotPaperUnits.acMillimeters ThisDrawing.ActiveLayout.StandardScale = AcPlotScale.acScaleToFit ThisDrawing.ActiveLayout.PlotType = AcPlotType.acExtents ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo ThisDrawing.Plot.PlotToDevice Paper1 End Sub
