VPF::NET::Printer. Проблема с печатью. - Форум программистов

Grost

Дата 8.2.2011, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 26.8.2010
Где: Москва

Репутация: нет
Всего: нет

Здравствуйте.
Пытаюсь распечатать файлик на сетевой принтер. Использую NET::Printer

Код


#!usr/bin/perl -w
use strict;
use Net::Printer;

  # Create new Printer Object
 my $lineprinter = new Net::Printer(
                                  printer     => "IT",
                                  server      => "192.168.1.100",
                                  port        => 9100,
                                  lineconvert => "YES"
                                  );

my $result = $lineprinter->printfile("C:/test.txt");

Запускаю скрипт, а он тупо виснет. Прождал минут 5, а ответа от него не последовало. Жму Ctrl+C, что принудительно завершает выполнение. В итоге выполнение заканчивается, а принтер печатает примерно следующее:
smile

IT

Подскажите плиз, как с этим бороться.

arto

Дата 8.2.2011, 15:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

принтер у вас, наверное, постскриптовский?..

Grost

Дата 8.2.2011, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 26.8.2010
Где: Москва

Репутация: нет
Всего: нет

Я, к сожалению, не знаю.. Да и не знаю, знает ли это админ наш... Где это можно посмотреть?
Модель: HP LaserJet P4515n.

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

arto

Дата 8.2.2011, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

http://www.google.com/search?hl=en&q=hp+laserjet+p4515n

ну и формируйте ему постскрипт, если он постскриптовский.
или переводите его в ascii-mode

Grost

Дата 8.2.2011, 23:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 26.8.2010
Где: Москва

Репутация: нет
Всего: нет

Ну с этим попробую разобраться, а то что он у меня печатает не текст из файла.. Что тут может быть?

arto

Дата 8.2.2011, 23:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

Цитата(arto @ 8.2.2011, 17:24

)

ну и формируйте ему постскрипт, если он постскриптовский.

Grost

Дата 9.2.2011, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 26.8.2010
Где: Москва

Репутация: нет
Всего: нет

Сам не осилил.. объясните как для полу-дерева пожалуйста...

arto

Дата 9.2.2011, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

C:/test.txt должен содержать постскриптовский текст.
Чем вы его сформируете -- ваша проблема.
Под unix есть tex, latex, lout, a2ps, enscript etc.

Grost

Дата 24.2.2011, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 26.8.2010
Где: Москва

Репутация: нет
Всего: нет

В Ubunta в LaTex создал файл, далее Файл->Печать->В PostScript. После чего появился файл print.ps. Попытался его распечатать следующим образом:

Код


#!usr/bin/perl 
use Net::Printer;

  # Create new Printer Object
 my $lineprinter = new Net::Printer(
             filename    => "C:/print.ps",    
                                  printer     => "IT",
                                  server      => "192.168.1.100",
                                  port        => 9100,
                                  lineconvert => "YES"
                                  );

$result = $lineprinter->printfile();

По прежнему тормозит, а после Ctrl+C выводит на печать: "смайл" IT
Пытаюсь распечатать из Windows.

Это сообщение отредактировал(а) Grost - 24.2.2011, 16:56

Присоединённый файл ( Кол-во скачиваний: 2 )

print.ps 7,14 Kb

arto

Дата 25.2.2011, 11:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

вы напрямую на сетевой принтер, или через сервер?

Grost

Дата 25.2.2011, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 26.8.2010
Где: Москва

Репутация: нет
Всего: нет

На сетевой принтер напрямую.

arto

Дата 25.2.2011, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

тогда, imho, печатайте напрямую.
Net::Printer -- для печати через lpd-подобное

Grost

Дата 25.2.2011, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 26.8.2010
Где: Москва

Репутация: нет
Всего: нет

Кроме Win32::Printer можете посоветывать?
Просто хоть и печатаю из винды, но хочется при этом преобрести опыт печати в Linux.

PS. меня убивает, что запрос на принтер всё же идёт.. вот и думал, что накосячил где-то..

Это сообщение отредактировал(а) Grost - 25.2.2011, 23:15

arto

Дата 27.2.2011, 13:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

ну в порт он вам что-то пишет.
но не то, что принтер ожидает.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »