Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.04.2015, 19:47   #11
Magomed642
 
Регистрация: 26.04.2015
Сообщений: 9
По умолчанию

Код:
printDialog := TPrintDialog.Create(form1);

  if printDialog.Execute then
  begin

    myPrinter := Printer;
    with myPrinter do
    begin
      BeginDoc;

      Canvas.Font.Size   := 15;

      canvas.textout(20,15,memo1.Text);


      EndDoc;
    end;
  end;
end;
Оформляй код правильно - кнопка # вверху

куда и как правильно его записать

Код:
procedure TForm1.btn3Click(Sender: TObject);

  begin
Printer.BeginDoc ;
 Printer.Canvas.TextOut(20,15,mmo1.Text);

Printer.EndDoc;
end;
   end.
я вот так записал и нормально пошло.

Оформляй код правильно - кнопка # вверху

Последний раз редактировалось Stilet; 26.04.2015 в 20:41.
Magomed642 вне форума Ответить с цитированием
Старый 26.04.2015, 20:41   #12
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Во-о-о-т. Видишь как хорошо быть внимательным )
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Очень нужна помощь c матрицами, макросами в Excel. Заранее благодарен(поверьте, очень-очень нужна помощь) Farridjan Помощь студентам 1 03.07.2009 12:24
Очень нужна помощь! Нужно найти ошибку в очень простой программе. Lex55555777 Помощь студентам 3 07.12.2008 20:32
Нужна помощь в Паскале. Очень-очень срочно. !!! Помощь студентам 2 09.02.2007 15:12