FoxClub Forums > Visual Foxpro, Foxpro for DOS > Как настроить принтер на двухстороннюю печать ::

• Войти

Как настроить принтер на двухстороннюю печать
Аспид Автор Сообщений: 3475 Откуда: Москва Дата регистрации: 01.04.2005	Аспид 30.10.18 15:55:25 Принтер двухсторонний. Но по умолчанию не стоит 2х сторонняя. Мне при печати опр. дока, нужна она. Можно из под фокса как то настроить?

Re: Как настроить принтер на двухстороннюю печать
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 30.10.18 16:57:13 PRINTJOB...ENDPRINTJOB посылает системные переменные (например, _PDSETUP ?) на принтер...

Re: Как настроить принтер на двухстороннюю печать
Burn Сообщений: 5644 Откуда: Днепр Дата регистрации: 02.01.2002	Burn 30.10.18 17:01:18 Я напрямую коректировал заголовок репорта - открывал его как таблицу и дописывал в поле первой записи Expr DUPLEX=2 USE p_c+[dov3.frx] ALIAS dov3 IN 0 SELECT * FROM dov3 INTO TABLE p_c+[dov31] SELECT dov31 GO TOP IF Atc(expr,'DUPLEX')>0 REPLACE Expr WITH Strtran(expr,'DUPLEX=1','DUPLEX=2') ELSE REPLACE Expr WITH Expr+CHR(13)+'DUPLEX=2' ENDIF USE IN dov3 USE IN dov31 COPY FILE p_c+[dov31.dbf] TO p_c+[dov31.frx] COPY FILE p_c+[dov31.fpt] TO p_c+[dov31.frt] SELE dov_spe REPORT FORM p_c+[dov31.frx] NOCONSOLE TO PRINTER PROMPT Пришлось делать это на лету т.к. заголовок почему-то переодически слетал Исправлено 2 раз(а). Последнее : Burn, 30.10.18 17:05

Re: Как настроить принтер на двухстороннюю печать

Burn

Сообщений: 5644
Откуда: Днепр
Дата регистрации: 02.01.2002

Burn

30.10.18 17:01:18

Я напрямую коректировал заголовок репорта - открывал его как таблицу и дописывал в поле первой записи Expr DUPLEX=2


      USE p_c+[dov3.frx] ALIAS dov3 IN 0
      SELECT * FROM dov3 INTO TABLE p_c+[dov31]
      SELECT dov31
      GO TOP
      IF Atc(expr,'DUPLEX')>0
         REPLACE Expr WITH Strtran(expr,'DUPLEX=1','DUPLEX=2')
      ELSE
         REPLACE Expr WITH Expr+CHR(13)+'DUPLEX=2'
      ENDIF
      USE IN dov3
      USE IN dov31
      COPY FILE p_c+[dov31.dbf] TO p_c+[dov31.frx]
      COPY FILE p_c+[dov31.fpt] TO p_c+[dov31.frt]

      SELE dov_spe
      REPORT FORM p_c+[dov31.frx] NOCONSOLE TO PRINTER PROMPT

Пришлось делать это на лету т.к. заголовок почему-то переодически слетал

Исправлено 2 раз(а). Последнее : Burn, 30.10.18 17:05

Re: Как настроить принтер на двухстороннюю печать
WbrErr Сообщений: 1960 Дата регистрации: 05.12.2006	WbrErr 30.10.18 17:34:44 Код на VBA: www.excelforum.com Часть текста скрыта Закрыть Вызов Часть текста скрыта Закрыть Исправлено 2 раз(а). Последнее : WbrErr, 30.10.18 17:40

Re: Как настроить принтер на двухстороннюю печать
Аспид Автор Сообщений: 3475 Откуда: Москва Дата регистрации: 01.04.2005	Аспид 30.10.18 18:55:21 Спасибо всем за помощь. Burn Я напрямую коректировал заголовок репорта - открывал его как таблицу и дописывал в поле первой записи Expr DUPLEX=2 Ведь помню, где то DUPLEX=2 надо поставить))) Искал в настройках, а оно воно как))) Завтра на работе попробую. Тока не понял, почему такие сложности? Почему сразу в нужном frx не сделать GO TOP IF Atc(expr,'DUPLEX')>0 REPLACE Expr WITH Strtran(expr,'DUPLEX=1','DUPLEX=2') ELSE REPLACE Expr WITH Expr+CHR(13)+'DUPLEX=2' ENDIF Наверное какие то свои заморочки)

Re: Как настроить принтер на двухстороннюю печать

Аспид
Автор

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005

Аспид

30.10.18 18:55:21

Спасибо всем за помощь.

Burn
Я напрямую коректировал заголовок репорта - открывал его как таблицу и дописывал в поле первой записи Expr DUPLEX=2

Ведь помню, где то DUPLEX=2 надо поставить))) Искал в настройках, а оно воно как)))
Завтра на работе попробую.

Тока не понял, почему такие сложности?
Почему сразу в нужном frx не сделать


 GO TOP  
        IF Atc(expr,'DUPLEX')>0  
           REPLACE Expr WITH Strtran(expr,'DUPLEX=1','DUPLEX=2')  
        ELSE  
           REPLACE Expr WITH Expr+CHR(13)+'DUPLEX=2'  
        ENDIF

Наверное какие то свои заморочки)

Re: Как настроить принтер на двухстороннюю печать
Alsim Сообщений: 3636 Откуда: Екатеринбург Дата регистрации: 17.11.2004	Alsim 30.10.18 19:34:54 Burn Я напрямую коректировал заголовок репорта - открывал его как таблицу и дописывал в поле первой записи Expr DUPLEX=2 Fox7 Я в форму (класс) вывода отчета на печать положил маленькую кнопку (для себя), а в ней вызов редактирования этого поля. Код выдрал у себя, целиком нет смысла приводить, там много и очень лично и давно написано если что. PRN_STRING Ёжику понятно, передаётся имя репорта. Но зато я теперь вижу на каждом локальном месте что там прописано, и если что копипастю что надо (DUPLEX=2, порт и т.п.) lcUseRep = PRN_STRING +".FRX" Use &lcUseRep In 0 Exclusive Select &PRN_STRING Modify Memo Expr In Screen Use

Re: Как настроить принтер на двухстороннюю печать

Alsim

Сообщений: 3636
Откуда: Екатеринбург
Дата регистрации: 17.11.2004

Alsim

30.10.18 19:34:54

Burn
Я напрямую коректировал заголовок репорта - открывал его как таблицу и дописывал в поле первой записи Expr DUPLEX=2

Fox7
Я в форму (класс) вывода отчета на печать положил маленькую кнопку (для себя), а в ней вызов редактирования этого поля.
Код выдрал у себя, целиком нет смысла приводить, там много и очень лично и давно написано если что.
PRN_STRING Ёжику понятно, передаётся имя репорта.
Но зато я теперь вижу на каждом локальном месте что там прописано, и если что копипастю что надо (DUPLEX=2, порт и т.п.)


lcUseRep = PRN_STRING +".FRX"
    Use &lcUseRep In 0 Exclusive
    Select &PRN_STRING
    Modify Memo Expr In Screen
    Use

Re: Как настроить принтер на двухстороннюю печать
Burn Сообщений: 5644 Откуда: Днепр Дата регистрации: 02.01.2002	Burn 30.10.18 22:39:22 Аспид Тока не понял, почему такие сложности? Почему сразу в нужном frx не сделать Я ж говорю - переодически строка DUPLEX=2 из настроек пропадала Может связано с тем что на моем рабочем месте у принтере нет дуплекса. Вобщем устал я открывать репорт, добавлять строку и делать новую exe-шку под крики пользователей что им срочно нужно распечатать документ. А имеющийся вариант работает всегда

Re: Как настроить принтер на двухстороннюю печать

Burn

Сообщений: 5644
Откуда: Днепр
Дата регистрации: 02.01.2002

Burn

30.10.18 22:39:22

Аспид
Тока не понял, почему такие сложности?
Почему сразу в нужном frx не сделать

Я ж говорю - переодически строка DUPLEX=2 из настроек пропадала

Может связано с тем что на моем рабочем месте у принтере нет дуплекса. Вобщем устал я открывать репорт, добавлять строку и делать новую exe-шку под крики пользователей что им срочно нужно распечатать документ. А имеющийся вариант работает всегда

Re: Как настроить принтер на двухстороннюю печать
Аспид Автор Сообщений: 3475 Откуда: Москва Дата регистрации: 01.04.2005	Аспид 31.10.18 09:50:42 DUPLEX=2 помог. Печатает с 2х сторон. Осталась печалька. 2я сторона перевернута к вверх ногами( Это как побороть?

Re: Как настроить принтер на двухстороннюю печать
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 31.10.18 11:05:24 А если DUPLEX=3 (это с другой стороной переворота листа) ?

Re: Как настроить принтер на двухстороннюю печать
Mitjay Сообщений: 387 Откуда: Саратов Дата регистрации: 01.01.2005	Mitjay 31.10.18 12:03:20 Скорее "отсутствие"->"DUPLEX=1"->"DUPLEX=2"

Re: Как настроить принтер на двухстороннюю печать
Аспид Автор Сообщений: 3475 Откуда: Москва Дата регистрации: 01.04.2005	Аспид 31.10.18 12:29:41 of63 А если DUPLEX=3 (это с другой стороной переворота листа) ? Я б 40 плюсов поставил, если б можно было. Все ОК)))

Re: Как настроить принтер на двухстороннюю печать
Alsim Сообщений: 3636 Откуда: Екатеринбург Дата регистрации: 17.11.2004	Alsim 31.10.18 12:52:22 of63 А если DUPLEX=3 (это с другой стороной переворота листа) ? Я понял, что автор всё понял, но на всякий случай про свое скажу. на DUPLEX=3 наткнулся, когда мои попросили накладную альбомом двустороннюю. DUPLEX=2 - портрет на две стороны. * У себя как делаю. Так как принтер у меня обычный, да еще сетевой, то в систему ставлю такой же, как на складе по умолчанию. (HP 2015, он в любой винде есть) Чисто виртуально на LPT1. С настройках принтера ставлю признак, что есть возможность дуплекса. Захожу в проект и смело работаю. Репорты лежат снаружи екзешника и не компилируются, чтобы по горячим клавишам можно было подвигать внутренности по удалёнке. Перед тем, как им скинуть обновления, проверяю, что там в заголовке прописалось, не мой случайно :0) * А за идею спасибо. Можно в принципе сделать настроечную табличку с именами репортов, в неё напихать все эти DUPLEX=3 и все что там еще в комплекте прописано должно быть, а потом реплейсить легким движением руки. + то есть, если у меня по умолчанию стоит виртуальный принтер с включенным дуплексом, то репорты не кривятся. Исправлено 1 раз(а). Последнее : Alsim, 31.10.18 12:57

Re: Как настроить принтер на двухстороннюю печать

Alsim

Сообщений: 3636
Откуда: Екатеринбург
Дата регистрации: 17.11.2004

Alsim

31.10.18 12:52:22

of63
А если DUPLEX=3 (это с другой стороной переворота листа) ?

Я понял, что автор всё понял, но на всякий случай про свое скажу.
на DUPLEX=3 наткнулся, когда мои попросили накладную альбомом двустороннюю.
DUPLEX=2 - портрет на две стороны.
***
У себя как делаю. Так как принтер у меня обычный, да еще сетевой, то в систему ставлю такой же, как на складе по умолчанию. (HP 2015, он в любой винде есть)
Чисто виртуально на LPT1. С настройках принтера ставлю признак, что есть возможность дуплекса.
Захожу в проект и смело работаю. Репорты лежат снаружи екзешника и не компилируются, чтобы по горячим клавишам можно было подвигать внутренности по удалёнке.
Перед тем, как им скинуть обновления, проверяю, что там в заголовке прописалось, не мой случайно :0)
***
А за идею спасибо. Можно в принципе сделать настроечную табличку с именами репортов, в неё напихать все эти DUPLEX=3 и все что там еще в комплекте прописано должно быть, а потом реплейсить легким движением руки.

+ то есть, если у меня по умолчанию стоит виртуальный принтер с включенным дуплексом, то репорты не кривятся.

Исправлено 1 раз(а). Последнее : Alsim, 31.10.18 12:57

Re: Как настроить принтер на двухстороннюю печать
Аспид Автор Сообщений: 3475 Откуда: Москва Дата регистрации: 01.04.2005	Аспид 31.10.18 14:05:52 У меня неприятность в том, что принтер далеко. Какой то МФУ. К ним 2 час переться по пробкам. Попробовал 3 поставил, откомпилировал, и у них все ок. Исправлено 1 раз(а). Последнее : Аспид, 31.10.18 14:06

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 23 (Гостей: 23)