Имена документов при печати, не 'fast Report Document'
Такое дело.
Может подскажете как сделать имя документов на печать другим, отличным от 'Fast Report Document'.
'Fast Report Document' прописан в frxPrinter.pas, в процедуре
procedure TfrxPrinter.BeginDoc;
var
DocInfo: TDocInfo;
begin
FPrinting := True;
FillChar(DocInfo, SizeOf(DocInfo), 0);
DocInfo.cbSize := SizeOf(DocInfo);
if FTitle <> '' then
DocInfo.lpszDocName := PChar(FTitle)
else DocInfo.lpszDocName := PChar('Fast Report Document');
if FFileName <> '' then
DocInfo.lpszOutput := PChar(FFileName);
RecreateDC;
StartDoc(FDC, DocInfo);
end;
Вот вопрос. Реально ли его менять непосредственно перед печатью?
Чтобы в истории принтера было не Fast Report, а именно названия документов на печать.
Может подскажете как сделать имя документов на печать другим, отличным от 'Fast Report Document'.
'Fast Report Document' прописан в frxPrinter.pas, в процедуре
procedure TfrxPrinter.BeginDoc;
var
DocInfo: TDocInfo;
begin
FPrinting := True;
FillChar(DocInfo, SizeOf(DocInfo), 0);
DocInfo.cbSize := SizeOf(DocInfo);
if FTitle <> '' then
DocInfo.lpszDocName := PChar(FTitle)
else DocInfo.lpszDocName := PChar('Fast Report Document');
if FFileName <> '' then
DocInfo.lpszOutput := PChar(FFileName);
RecreateDC;
StartDoc(FDC, DocInfo);
end;
Вот вопрос. Реально ли его менять непосредственно перед печатью?
Чтобы в истории принтера было не Fast Report, а именно названия документов на печать.
Комментарии
Спасибо Вам огромное.
Я как-то и не подумал что это то что нужно