VPF::Delphi и сетевой принтер - Форум программистов

PROeXT

Дата 23.11.2006, 12:20 (ссылка)

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

Загрузка ...

Новичок

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

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

Народ, нужна помощь... Есть принтер (сетевой). Пытаюсь печатать из Delphi7 напрямую... Принтер Samsung 1710, лазерный... После посылки команды принтер жужжит, однако ничего не делает... Ошибок никаких не выводится... Однако и не печатается... Привожу код проги:

Код


procedure TfmMain.btnTestClick(Sender: TObject);
begin
 ShowMessage('Test 1');
 WriteStringToPrinter(edPrinterName.Text,'This is a test number one');
end;

procedure TfmMain.WriteStringToPrinter(const PrinterName, Str: String);
var
  Handle: THandle;
  N: DWORD;
  DocInfo1: TDocInfo1;
begin
  if not OpenPrinter(PChar(PrinterName), Handle, nil) then
  begin
    ShowMessage('error ' + SysErrorMessage(GetLastError));
    Exit;
  end;
  with DocInfo1 do begin
    pDocName := PChar('test doc');
    pOutputFile := nil;
    pDataType := 'RAW';
  end;
  IF StartDocPrinter(Handle, 1, @DocInfo1)=0 Then ShowMessage(SysErrorMessage(GetLastError));
  IF Ord(StartPagePrinter(Handle))=0 Then ShowMessage(SysErrorMessage(GetLastError));
  IF Ord(WritePrinter(Handle, PChar(Str), Length(Str), N))=0 Then ShowMessage(SysErrorMessage(GetLastError));
  EndPagePrinter(Handle);
  EndDocPrinter(Handle);
  ClosePrinter(Handle);
end;

Akella

Дата 23.11.2006, 13:08 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Возможно дело в формате бумаги.
У меня была следующая проблема: если при печати из, например, автокада или акробата, неправильно установил формат бумаги, то принтер начинает работать и через 10 сек. останавливается. Хотя может я и не прав.

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