1.Не у всех установлены последние версии автокада. 2.Настроить лист в dwg для печати, указать принтер 3.Все это гораздо проще и с меньшими трудозатратами выполнять макросами с автокада. С печатью не все так просто
По сути у меня всего 1 вопрос. зачем решать задачу сразу в двух ветках, здесь и в работе, тем более Вам ответил потенциальный исполнитель. PS:направление совсем не верное получения данных.
Sub Показать()
Dim res(1 To 16, 1 To 4), Sh As Worksheet
Set Sh = ThisWorkbook.Worksheets("данные")
dt = CDate(Format(Now, "dd\.MM\.yyyy HH:mm"))
LastRow = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row
dx = Sh.Range("a1").Resize(LastRow, 3)
res(8, 2) = "Текущее время"
For n = 2 To UBound(dx)
dt1 = CDate(dx(n, 1) + dx(n, 2))
If dt = dt1 Then
For i = n - 1 To n - 7 Step -1
If i < 2 Then Exit For
res(i - n + 8, 1) = dx(i, 1)
res(i - n + 8, 3) = dx(i, 2)
res(i - n + 8, 4) = dx(i, 3)
Next
For i = n To n + 8
If i > UBound(dx) Then Exit For
res(i - n + 8, 1) = dx(i, 1)
res(i - n + 8, 3) = dx(i, 2)
res(i - n + 8, 4) = dx(i, 3)
Next
Exit For
End If
Next
Set Sh = ThisWorkbook.Worksheets("показать диапазон")
Sh.Range("a2").Resize(16, 4) = res
pTime = (61 - Second(Now)) / 86400
Application.OnTime Now + pTime, "Показать"
Application.StatusBar = Now & " обновились данные"
End Sub
Нет там проблемы, я на эту тему уже давал ответ. javascript заполняет документ в зависимости от региона, и этого class='product-card-price__current' нет в html страницы Вот так выглядит исходный вид страницы
2 не получится, но в 5 6 можно при помощи Server Management Studio, если хватит мощи компа и типы данных в соответствующих столбцах одинаковые, иначе будут потери