печать в Билдере

[Dimarik]

народ, кто может подсказать как мне распечатать то,, что находится в Memo2???
я пытался сделать

void __fastcall TForm1::N5Click(TObject *Sender)
{

if (PrintDialog1->Execute())
PrintDialog1->Assign(Memo1);
}

но не пашет, выходит ошибка печати: cannot assign a TMemo to a TPrintDialog
а такой метод как Form1->Print() не подходит, так как надо распечатать только поле MEMO2

так тоже ошибка при выполнении

void __fastcall TForm1::N5Click(TObject *Sender)
{

if (PrintDialog1->Execute())
PrintDialog1->Assign(Memo2->Lines);
}

а если писать так, то синтаксическая ошибка:

void __fastcall TForm1::N5Click(TObject *Sender)
{

if (PrintDialog1->Execute())
 PrintDialog1->Assign(Memo1->Text);

}

[pu4koff]

1. Метод Assign пришел из делфей, где нет конструкторов копирования. Используется для копирования состояния одного объекта в другой объект. Следовательно, можно писать только: Кнопка1->Assign(Кнопка2), Мемо->Lines->Assign(Memo->Lines) и т.д.
2. PringDialog - просто диалог. Он ничего печатать не умеет и отвечает только за отображение и выбор параметров печати.
3. Точно не скажу как печатать, но подход заключается вроде создания текстового файла и вывод в него данных из Мемо. В делфях модуль Printers нужен, а для создания специального текстового файла для печати используется функция AssignPrn, если мне не изменяет память. В help'е должен быть пример.

[Dimarik]

ничё нормального в справке не нашёл((

[pu4koff]

А я нашел пример на делфях в справке делфийской (по запросу "AssignPrn"):

procedure TForm1.Button1Click(Sender: TObject);

var
  MyFile: TextFile;
begin
  AssignPrn(MyFile);
  Rewrite(MyFile);
  Writeln(MyFile, 'Print this text');
  System.CloseFile(MyFile);
end;

Можно попробовать перегнать это на С++:

#include <Printers.hpp>
...
  
  TextFile MyFile;
  AssignPrn(MyFile);
  Rewrite(MyFile);
  Writeln(MyFile, "Print this text");
  CloseFile(MyFile);

В работоспособности кода не уверен, ибо билдера нет под руками.

[Dimarik]

не сделает. функций не знает. и мне не в консоли а в форме МЕМО1 надо распечатать

[psycho-coder]

ничё нормального в справке не нашёл((

Странно. Вот из той же справки

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TPrinter *Prntr = Printer();
  TRect r = TRect(200, 200, Prntr->PageWidth - 200, Prntr->PageHeight - 200);
  Prntr->BeginDoc();
  Prntr->Canvas->TextRect(r, 200, 200, Memo1->Lines->Text);
  Prntr->EndDoc();
}