VPF::печать через TPrinter - Форум программистов

Uregistered

Дата 3.3.2004, 10:20 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

выполняю простую процедуру:

Код


procedure PrintGrid(Grd: TDBGrid; gTitle: string);
var Text:string;
      h:integer;
begin
  Printer.Title := gTitle;
  Printer.BeginDoc;
  Text:='';
  h:=50;
  With Grd.DataSource.DataSet do
  begin
    while not EOF do
    begin
      Text:=Format('%.1f',[Fields[0].AsFloat])+'    '+Fields[1].AsString;
      inc(h,Printer.Canvas.TextHeight(Text));
      Printer.Canvas.TextOut(100,150+h,Text);
      next;
    end;
  end;

  Printer.EndDoc;
end;

С начала распечатывается лист с настройками принтера, потом то что мне нужно, а потом еще лист прогоняется. В чем дело? Принтер HP1100LJ, Delphi 7. Спасибо.

Medved

Дата 3.3.2004, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

А Вы уверены что дело в Вашем коде?

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

Unregistered

Дата 4.3.2004, 01:49 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

не уверен, в том то и дело. Я ж и спросил: в чем дело. каламбур. на других принтерах не пробовал, нет возможности. и еще: ось win2ks. драва на принтер родные. может кто-нибудь попробует эту процедуру, а? И сообщит о результате. Буду признателен

Unregistered

Дата 5.3.2004, 05:17 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Никто с таким не сталкивался? если нет, тогда подправте ваш фак. Причину к сожалению так и не нашел.

p0s0l

Дата 5.3.2004, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Цитата

может кто-нибудь попробует эту процедуру, а

Да тут и проверять нечего, на глаз видно, что всё нормально... Ищи причину не здесь... Ради эксперимента выведи хотя бы просто надпись без всяких наворотов, типа:

Цитата

Printer.BeginDoc;
Printer.Canvas.TextOut(200, 200, 'Hello!');
Printer.EndDoc;

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »