Hello all
I have written the following code:
Now, the problem is that although this does produce a print, it ignores the fact that I want it extents, monochrome, centered etc and just prints as it is ont he screen.
If I debug the program just before printing, the plot configuration does reflect the changes I requested, but the actual printer (or somewhere in between) seems to ignore them.
Does anyone have any ideas?
Thanks
All help is greatly appreciated
Kind regards
Ota
I have written the following code:
Code:
Sub MainTest()
Dim objConfig As AcadPlotConfiguration
Dim blnResult As Boolean
Set objConfig = ThisDrawing.Application.ActiveDocument.PlotConfigurations.Add("New")
ThisDrawing.ModelSpace.Layout.RefreshPlotDeviceInfo
With objConfig
.ConfigName = "[URL="file://\\BLBEDC02\DO"]\\BLBEDC02\DO[/URL] LaserJet 5100"
.CanonicalMediaName = "A4"
.StandardScale = acScaleToFit
.PlotType = acExtents
.StyleSheet = "Monochrome.ctb"
.PlotRotation = ac0degrees
.CenterPlot = True
End With
ThisDrawing.Application.ActiveDocument.Regen acAllViewports
blnResult = ThisDrawing.Application.ActiveDocument.Plot.PlotToDevice(objConfig.ConfigName)
objConfig.Delete
Set objConfig = Nothing
End SubNow, the problem is that although this does produce a print, it ignores the fact that I want it extents, monochrome, centered etc and just prints as it is ont he screen.
If I debug the program just before printing, the plot configuration does reflect the changes I requested, but the actual printer (or somewhere in between) seems to ignore them.
Does anyone have any ideas?
Thanks
All help is greatly appreciated
Kind regards
Ota