(defun print_to_png (pach-folder up-left-point dist / dn-point up-point file LN-point PV-point)
  (setq file (strcat pach-folder"\\"(rtos(nth 1 up-left-point)2 3) "-" (rtos(nth 0 up-left-point)2 3)))
  (setq LN-point (strcat(rtos(nth 0 up-left-point)2 3)","(rtos(-(nth 1 up-left-point)dist)2 3)))
  (setq PV-point (strcat(rtos(+(nth 0 up-left-point)dist)2 3)","(rtos(nth 1 up-left-point)2 3)))
  (draw_osnap_off)
  (setvar "CMDECHO" 0)
  (setvar "NOMUTT" 1)
  (command "-ПЕЧАТЬ" ;команда печать в текстовом диалоге
	   "Да";Выполнить детальное задание конфигурации? [Да/Нет] <Нет>:
	   "Модель";Имя листа или [?] <Модель>:
	   "PublishToWeb PNG.pc3";Имя устройства вывода или [?] <DWG To PDF.pc3>:
	   "1000x1000";Формат листа бумаги или [?] <1000x1000>:
	   "Книжная";Ориентация чертежа [Книжная/Альбомная] <Альбомная>:
	   "Нет";Перевернуть чертеж? [Да/Нет] <Нет>:
	   "Рамка";Печатаемая область [Экран/Границы/Лимиты/Вид/Рамка] <Рамка>:
	   LN-point;"2226850,505200";Левый нижний угол рамки <2225593.694350,503952.148749>:
	   PV-point;"2226900,505250";Правый верхний угол рамки <2228454.224078,506330.286800>:
	   "Вписать";Масштаб печати (пиксел чертежа=Единицы чертежа) или [Вписать] <Вписать>:
	   "Центрировать";Смещение от начала (x,y) или [Центрировать] <Центрировать>:
	   "Да";Учитывать стили печати? [Да/Нет] <Да>:
	   "";Имя таблицы стилей печати или [?] (. если нет) <>:
	   "Да";Учитывать веса линий? [Да/Нет] <Да>:
	   "Обычный";Режим вывода тонированных ВЭ [Обычный/Каркас из предыдущих версий/Скрытие линий из предыдущих версий/Визуальные стили/с  вИзуализацией] <Как на экране>:
	   file;"D:\\test.png"
	   "Нет";Сохранить изменения параметров листа [Да/Нет]? <Н>
	   "Да";Перейти к печати [Да/Нет] <Д>:
	   )
  (setvar "NOMUTT" 0)
  (setvar "CMDECHO" 1)
  (draw_osnap_on)
  )