Текущий архив: 2006.08.13;
Скачать: 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 вся ветка
Текущий архив: 2006.08.13;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.051 c
