IJCADをvb.netで印刷するときに、印刷領域に窓 (PlotType.Window) を指定するとicPlSetVdr.SetPlotType(icLayout, GrxCAD.DatabaseServices.PlotType.Window) のところでエラーになります。

ただし手動で一度印刷領域を窓に設定するとエラーが出なくなります。
最初からエラーが出ないようにする方法はないでしょうか？

Using icTrans As Transaction = icDb.TransactionManager.StartTransaction()
    Dim icLayMgr As LayoutManager = LayoutManager.Current
    Dim icLayout As Layout = icTrans.GetObject(icLayMgr.GetLayoutId(icLayMgr.CurrentLayout), OpenMode.ForWrite)
    Dim icPlSetVdr = PlotSettingsValidator.Current
    icPlSetVdr.SetPlotType(icLayout, GrxCAD.DatabaseServices.PlotType.Window)
    icPlSetVdr.SetUseStandardScale(icLayout, True)
    icPlSetVdr.SetStdScaleType(icLayout, StdScaleType.ScaleToFit)
    icPlSetVdr.SetPlotCentered(icLayout, True)
    icPlSetVdr.SetPlotRotation(icLayout, PlotRotation.Degrees090)
    icPlSetVdr.SetPlotWindowArea(icLayout, New Extents2d(New Point2d(0.0, 0.0), New Point2d(4000, 2800)))