Скачать: CL | DM;

Нужен пример печати на матричный принтер по сети   Найти похожие ветки 

← →
DmiSb   (2006-04-19 14:18) [0]

На локальный принтер очень хорошо печатается следующим образом:

var
 Handle: THandle;
 N: DWORD;
 DocInfo1: TDocInfo1;
begin
 OpenPrinter(PChar(PrinterName), Handle, nil);
 with DocInfo1 do begin
   pDocName := PChar("test doc");
   pOutputFile := nil;
   pDataType := "RAW";
 end;
 StartDocPrinter(Handle, 1, @DocInfo1);
 StartPagePrinter(Handle);
 ....
 WritePrinter(Handle, PChar(S), Length(S), N);
 ....
 EndPagePrinter(Handle);
 EndDocPrinter(Handle);
 ClosePrinter(Handle);

Но на сетевой расшаренный принтер так почемуто не печатает.

---

← →
Slym ©   (2006-04-21 13:47) [1]

hfile:=CreateFile("\\Server\printer",...);
WriteFile(hfile, PChar(S), Length(S),...);
CloseFile(hfile);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c