Отправка управляющих команд на принтер!!!

← →
Gennadiy (2003-11-01 19:53) [0]

Уважаемые мастера!!! Я этим кодом поссылаю на принтер управляющю команду, а он все равно вопринимает ее как текст и просто выводит на бумаге!!!!
Подскажите что делать!!!

unit Unit2;

interface

uses printers, WinProcs, WinTypes, SysUtils;

procedure PrintTest;
implementation

type
TPassThroughData = record
nLen: Integer;
Data: array[0..255] of byte;
end;

procedure DirectPrint(s: string);
var
PTBlock: TPassThroughData;
begin
PTBlock.nLen := Length(s);
StrPCopy(@PTBlock.Data, s);
Escape(printer.handle, PASSTHROUGH, 0, @PTBlock, nil);
end;

procedure PrintTest;
begin
Printer.BeginDoc;
DirectPrint("80 LPRINT CHR$(27);"%3";CHR$(10);CHR$(0);");
Printer.EndDoc;
end;

end.

← →
panov (2003-11-01 21:00) [1]

Не надо копировать напрямую текст из Бэйсика в паскаль:

DirectPrint("80 LPRINT "+CHR(27)+"%3"+CHR(10)+CHR(0));

← →
Anatoly Podgoretsky (2003-11-01 21:15) [2]

Ны, даже номер строки скопирован :-)

← →
Gennadiy (2003-11-02 13:52) [3]

А так все равно не получается он печатает только 80 LPRINT
DirectPrint("80 LPRINT "+CHR(27)+"%3"+CHR(10)+CHR(0));

← →
JohnJ (2003-11-08 02:18) [4]

А у меня ещё хуже проблемма - у меня на форме три RichEdit-a, и мне надо их все на страницу разместить и напечатать. Только вот больше одного RichEdit-а за раз напечатать не получается... никто не знает как это делается???

← →
Palladin (2003-11-08 02:35) [5]

Ну, даже прямых намеков не понял, ужасть :)

> JohnJ © (08.11.03 02:18) [4]

Ну как бы я догадываюсь. Но. Задай свой вопрос в отдельной ветке :)

Отправка управляющих команд на принтер!!! Найти похожие ветки