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

← →
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);

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