Печать

[саша40]

Привет. У меня идет печать RichEdit. Код:

var
Cop: Integer;
begin
if Form1.RichEdit1.Text='' then exit;
if PrintDialog1.Execute=true then
begin
Cop:=StrToInt(edit1.Text);
if Cop <= 0 then
begin
ShowMessage('Îøèáêà');
exit;
end;
PrintDialog1.Copies:=Cop;
Form1.RichEdit1.Print(Form1.RichEdit1.Text);
end;

Будут ли печататся эти количества копий? И как отобразить прогресс печати?

[Sciv]

Будут ли печататся эти количества копий?

А на практике проверить?

[саша40]

Сообщение от Sciv

А на практике проверить?

а просто не понял. Нужен ли тут ваще диалог?

[Stilet]

Будут ли печататся эти количества копий?

Поставь виртуальный принтер и проверь, например XPS.
А вообще-то кол-во копий настраивается отдельно для каждой печати в настройках принтера.

как отобразить прогресс печати?

Если драйвер не отображает, то просто замутить цикл, в котором будет на печать посылаться:

Progressbar.max:=10;
for i:=1 to 10 do begin
 Form1.RichEdit1.Print(Form1.RichEdit1.Text);
 Progressbar.step;
end;

Сдесь будет 10 раз копировать.

[саша40]

Сообщение от Stilet

Поставь виртуальный принтер и проверь, например XPS.
А вообще-то кол-во копий настраивается отдельно для каждой печати в настройках принтера.

Если драйвер не отображает, то просто замутить цикл, в котором будет на печать посылаться:

Progressbar.max:=10;
for i:=1 to 10 do begin
 Form1.RichEdit1.Print(Form1.RichEdit1.Text);
 Progressbar.step;
end;

Сдесь будет 10 раз копировать.

так и знал.