ThisDrawing.Plot.PlotToFile PlotFilePath, Plot_ConfigPlot(0)
ThisDrawing.SetVariable "BACKGROUNDPLOT", BackPlot
Dim Tim1!
Dim stTrCopy%
Bp1300:
' извлечём параметры печати из задания ..
On Error Resume Next
Open patfiles For Input As #1
Line Input #1, My_Temp01$ ' кол-во экземпляров - ФИКТИВНЫЙ на этот момент
If Err Then
Err.Clear
Tim1! = Timer
stTrCopy% = stTrCopy% + 1
Label10.Caption = "докопирование " & CStr(stTrCopy%)
Frame1.Visible = True
Close 1
While Tim1! + 5 > Timer: DoEvents: Wend
If stTrCopy% > 5 Then
MsgBox "Ошибка печати"
' Err.Raise vbObjectError + 513, "Module Pdf_plot", "My custom error."
Else
GoTo Bp1300
End If
End If
Close 1