Creep
Зарегистрирован: 06.04.2007 Сообщения: 1
|
Добавлено: Сб Апр 14 2007 13:09 Заголовок сообщения: Как распечатать текст из memo |
|
|
Собственно сабж, товарищи... Поставил PrintDialog, обшарил инет в поисках хоть какой-нить информации....
Код: |
void __fastcall TForm1::PrintMeClick(TObject *Sender)
{
if(PrintDialog1->Execute())
{
TPrinter * thePrinter = Printer();
thePrinter->BeginDoc();
//ShowMessage(IntToStr(thePrinter->PageWidth));
int i, x;
String S("String Grid Printout");
thePrinter->Canvas->Font->Name = "FixedSys";
thePrinter->Canvas->Font->Size = 8;
thePrinter->Canvas->Font->Pitch = TFontPitch() << fpFixed; thePrinter->Canvas->Font->PixelsPerInch = 400;
x = thePrinter->Canvas->TextHeight(S);
for(i = 0; i <Form2->RichEdit1->Lines->Count; i++)
{
if ((i%(thePrinter->PageHeight/x))== 0)
{
if(i!=0)
thePrinter->NewPage();
}
S = Form2->RichEdit1->Lines->Strings[i];
thePrinter->Canvas->TextOut(1, (x* (i%(thePrinter->PageHeight/x)))+x, S);
}
thePrinter->EndDoc();
}
}
|
и вот что я нашел... Здесь для RichEdit, но разницы никакой, переделал код для memo! Выдает ошибку! На вот этой строке:
Код: |
thePrinter->Canvas->TextOut(1, (x* (i%(thePrinter->PageHeight/x)))+x, S);
|
Что это может быть?..
Или может быть кто-нибудь поделится уже готовым куском кода или хоть какой-то информацией по этому поводу?
Заранее благодарен! |
|