Hendie
Here is the solution,
Thanks to Keith, I discovered the send command in VBA, then I created this little bit of code and put it in the begin plot event. It works like a charm
Mark
Private Sub AcadDocument_BeginPlot(ByVal DrawingName As String)
ThisDrawing.SendCommand ("-plotstamp" & vbCr & "on" & vbCr & vbCr)
End Sub