Принтер EPSON LX-300, рулонная печать и 1С #130351

Вопрос в следующем, есть матричный принтер (да, есть еще извращенцы) в него заправлен рулон, как мне 1С-ку заставить печатать не страницу А4, а брать столько бумаги, сколько нужно. В настройках принтера копался. Там есть А4, А5, letter, что-то еще... Рулона вроде нет.

Из Windows - никак. Сопируй в порт коды. Досовский вариант.

+1 и печатать в этом случае быстрее будет

Сам ты извращенец на матричных принтерах все банки работают

Эх... где бы мне достать матричный принтер под А2... Это Весчь!

Поподробнее можно? Что-то не силен я в этом пока...

только скорость там несоизмеримо выше... Хотя я пробовал печатать виндовую форму.

Мда... Дока к нему, между прочим, на русском языке. Выключи прогон перфорации и далее... правильно советует

Формируешь ESC-последовательность и отправляешь в порт. Описания есть в документации. Пример: // инициализация переменных для принтера Star Подчерк       = Симв + "-" + "1"; Жирн          = Симв + "E"; МежБук12      = Симв + "M"; МежБук13      = Симв + Симв + 1; МежБук14      = Симв + "p"; МежБук15      = Симв + "P"; МежБук16      = Симв + ":"; Высота2       = Симв + Симв; Ширина2       = Симв; МежСтрок3     = Симв + "0"; МежСтрок4     = Симв + "z" + "1"; НольЧерт      = Симв + "/" + "1"; Перевернуть   = Симв; Резать        = Симв + "d" + "3"; НПодчерк      = Симв + "-" + "0"; НЖирн         = Симв + "F"; НВысота2      = Симв + Симв; НШирина2      = Симв; ВысШирина2    = Симв + Симв + Симв; ННольЧерт     = Симв + "/" + "0"; НПеревернуть  = Симв; ВыравниваниеЛ = Симв + Симв + Симв + "0"; ВыравниваниеП = Симв + Симв + Симв + "2"; ВыравниваниеЦ = Симв + Симв + Симв + "1"; РусЯз         = Симв + Симв + "t" + Симв; Норм = ВыравниваниеЛ+НПодчерк+НЖирн+НВысота2+НШирина2+НПеревернуть+МежБук12+НольЧерт+МежСтрок3; //печать        Тек.ДобавитьСтроку(РусЯз+Норм+Жирн+ВыравниваниеП+МежБук13+"КОПИЯ");        Тек.ДобавитьСтроку(Норм+УвеличСимв(2,1)+Подчерк+СокрЛП(ТекСклад));        Тек.ДобавитьСТроку(Норм+Высота2+Жирн+МежБук13+"Оф.: "+СокрЛП(Зак.ОснованиеДокумента.Официант));        Тек.ДобавитьСТроку(Норм+МежСтрок3+"Время заказа:"+Зак.ДатаДок+" "+ТекущееВремя);        Тек.ДобавитьСТроку("К счету: "+СокрЛП(Зак.ОснованиеДокумента.НомерДок));        Тек.ДобавитьСТроку("Клиент: " + СокрЛП(Зак.ОснованиеДокумента.Клиент));                        Тек.ДобавитьСТроку("Зал: " + СокрЛП(Зак.ОснованиеДокумента.Зал) + "   Стол: " + СокрЛП(Зак.ОснованиеДокумента.НомерСтола));        Тек.ДобавитьСТроку("Заказ: " + СокрЛП(Зак.ОснованиеДокумента.НомерСчета));                        Тек.ДобавитьСТроку("");        ПИтог = 0;             И затем все в порт. Иногда не проходит, что сразу в порт, тогда сначала в файл затем copy qqq.qqq lpt1