Календарь

[mineralkaaa]

Народ,помогите пожалуйста,есть программа-генератор календаря(вложена),но она выводит этот календарь на экран,а мне нужно чтоб его можно было выводить на печать!!помогите кто может.

[Serge_Bliznykov]

в процедуре, которая висит на клике по кнопке SpeedButton1
(SpeedButton1Click)
в конце преобразования полученный файл сохраняется в каталог windows c именем MonPapierPeint.bmp:
b.SaveToFile(PapierPeint);
достаточно весь код, который идёт в данной процедуре после этого (до оператора end заменить на код, который распечатает полученный BMP файл и всё.


к сожалению, никогда не работал с TPrinter напрямую.
вот код, взятый из DelphiWorld

Как то работает (хотя, мне показалось, что качество картинки не очень хорошее. Но это из-за алгоритма формирования календаря).
Печать идёт на принтер по умолчанию.

// в начале  процедуры добавить описание переменных (выделено зелёным)
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
    ScaleX, ScaleY: Integer;
    R: TRect;


// в конце процедуры SpeedButton1Click весь код от b.SaveToFile и до end
// заменить на нижприведённый

     // b.SaveToFile(PapierPeint);
     image2.Picture.Bitmap.Width:=b.Width;
     image2.Picture.Bitmap.Height:=b.Height;
     image2.Picture.Bitmap.Assign(b);

    Printer.BeginDoc; // **
    with Printer do
      try
        ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
        ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
        R := Rect(0, 0, image2.Picture.Width * ScaleX,
          image2.Picture.Height * ScaleY);
        Canvas.StretchDraw(R, image2.Picture.Graphic); // **
      finally
        EndDoc; // **
      end;

(*     Registry := TRegIniFile.Create('Control Panel');
     Registry.WriteString('desktop', 'WallPaper', PapierPeint);
     Registry.Free;
     NotifyChangementPapierpeint ;
     sendmessage(handle,wm_wininichange,0,0);
     SmoothResize(b,image2.Width,image2.Height);
     image2.Picture.Bitmap.Width:=b.Width;
     image2.Picture.Bitmap.Height:=b.Height;
     image2.Picture.Bitmap.Assign(b);
*)
     b.Free;

[mineralkaaa]

Спасибо,Вам,огромное,но,если можно,скачайте,пожалуйста,мою программу и вставте туда то что нужно.Ато я правда ничего не понимаю в этом!!! Пожалуйста-пожалуйста-пожалуйста-пожалуйста!!!!!!

[misher]

Printer.BeginDoc;

-эта строчка не пускает(может потому-что у мя принтера нет?)

[Serge_Bliznykov]

Printer.BeginDoc;
-эта строчка не пускает(может потому-что у мя принтера нет?)

это я забыл сказать, что в Uses надо дописать модуль Printers

Хотя можно было на слове Printer нажать F1 и тогда посмотреть, в каком модуле это описано. Это я на будущее...


mineralkaaa, да не вопрос... вот, во вложении...

[mineralkaaa]

Ой!!Большущее спасибо!!!!!!!А скажите,а можно еще сделать так чтоб можно было посмотреть сначала на экране то что будет печататься?!?! (извините,что так надоедаю).Еще раз БОЛЬШОЕ СПАСИБО ЗА ПОМОЩЬ!!