Форум: "Система";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Вниз
Очередь печати. Найти похожие ветки
← →
Mishenka (2004-04-28 23:59) [0]При печати на принтере в очереди печати в графе имя файла ничего не указано. Как сделать, чтоб выводилось нужное имя файла?
← →
Mishenka (2004-04-30 14:33) [1]Ау
← →
Cobalt © (2004-05-01 02:06) [2]В настройках программы указать - "указывать имя файла"
← →
Mishenka (2004-05-01 18:35) [3]А про какие настройки идёт речь?
← →
Cobalt © (2004-05-02 09:17) [4]А ты о чём?
Вопрос задай конкретно, или ты не программист?
← →
Anatoly Podgoretsky © (2004-05-02 12:09) [5]Надо указывать самому
← →
Mishenka (2004-05-03 02:53) [6]Я понимаю что надо указывать. А как?
← →
Cobalt © (2004-05-03 10:41) [7]А это уже смотря как ты печатаешь. Ты же не указал
← →
Mishenka (2004-05-03 13:35) [8]Программа печатает либо содержимое RichEdit или Image
Вот две подпрограммы:
Для RichEdit:
var Line:Integer;
PrintText:System.Text;
AssignPrn(PrintText);
Rewrite(PrintText);
for Line:=0 to RichEdit1.Lines.Count-1 do
Writeln(PrintText,RichEdit1.Lines[Line]);
System.Close(PrintText);
для Image:
var K,K1,K2:Real;
RR:TRect;
with Printer do
begin
BeginDoc;
K:=Image1.Picture.Width/Image1.Picture.Height;
K1:=PageWidth/Image1.Picture.Width;
K2:=PageHeight/Image1.Picture.Height;
if K1>K2 then RR:=Rect(0,0,Round(PageHeight*K),PageHeight)
else RR:=Rect(0,0,PageWidth,Round(PageWidth/K));
Canvas.StretchDraw(RR,Image1.Picture.Graphic);
EndDoc;
end;
← →
Anatoly Podgoretsky © (2004-05-03 13:38) [9]Свойство Printer, на поиск после указания кода ушло 5 секунд, много меньше чем писать сообщение.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.031 c
