Hello all
I have written the following code to try and print a drawing:
'**********************************************************************************
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 = "\\BLBEDC02\DO 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 Sub
'**********************************************************************************
Now, the problem is that although this does produce a print, it ignores the fact that I want it extents, monochrome, centered etc...
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? Is there a bug in the API?
Thanks
