Message 1 of 1
Let me know set 'Fit to Paper' in VBA

Not applicable
05-30-2010
09:51 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I did Codding like below
But couldn't set 'Fit to Paper'...
it's very Important as for me
Please...
How Could i Declare(codding) 'Fit to paper' ..
.
-below-
Set layout = Acad.ActiveDocument.ActiveLayout
layout.CanonicalMediaName = "A3"
layout.CenterPlot = True
layout.ConfigName = "FX DocuCentre-II C3300 PCL 6"
layout.Name = cf(4)
layout.PaperUnits = acMillimeters
layout.PlotHidden = False
layout.PlotType = acWindow
layout.PlotRotation = ac270degrees
layout.PlotWithLineweights = True
layout.PlotWithPlotStyles = True 'False
layout.ShowPlotStyles = True
layout.StandardScale = acScaleToFit
layout.StyleSheet = "monocrom.ctb"
layout.Plot.NumberOfCopies = 1
But couldn't set 'Fit to Paper'...
it's very Important as for me
Please...
How Could i Declare(codding) 'Fit to paper' ..
.
-below-
Set layout = Acad.ActiveDocument.ActiveLayout
layout.CanonicalMediaName = "A3"
layout.CenterPlot = True
layout.ConfigName = "FX DocuCentre-II C3300 PCL 6"
layout.Name = cf(4)
layout.PaperUnits = acMillimeters
layout.PlotHidden = False
layout.PlotType = acWindow
layout.PlotRotation = ac270degrees
layout.PlotWithLineweights = True
layout.PlotWithPlotStyles = True 'False
layout.ShowPlotStyles = True
layout.StandardScale = acScaleToFit
layout.StyleSheet = "monocrom.ctb"
layout.Plot.NumberOfCopies = 1