VPF::настройка размера и ориентации для принтера

dimnast

Дата 13.2.2006, 18:15 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 10.1.2006

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

Подскажите как можно сделать такие вещи при вызове определенной процедуры:
1)активному принтеру поставить в настройках печати размер С5 162*229 мм
2) поставить ориентацию - альбомная
3) после выполнения последующих действий поставить размер А4 и ориентацию - книжная
smile

Демо

Дата 13.2.2006, 18:18 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Код


  Printer.Orientation := poLandscape;
  Printer.PageHeight  :=
  Printer.PageWidth   :=

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

dimnast

Дата 13.2.2006, 18:45 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 10.1.2006

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

Демо,
Свойства высоты и ширины только для чтения.

dimnast

Дата 14.2.2006, 11:56 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 10.1.2006

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

Еще раз для всех smile

Вот что написано:
-------
With Printer do
begin
PageHeight:=110;
PageWidth:=110;
Orientation:=poLandscape;
end;
-------
А вот полученный результат:
_____
[Error] alMain.pas(999): Cannot assign to a read-only property
[Error] alMain.pas(1000): Cannot assign to a read-only property
-------
Из чего вывод, что свойства PageHeight и PageWidth только для чтения....
И что же делать?
smile

Snowy

Дата 14.2.2006, 13:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Правильно. Как ты можешь задать размер листа?
Прочитать можешь. А установить...
Не представляю. Если я засунул в принтер А4, то хоть что делай - он не уменьшится.

Foley

Дата 14.2.2006, 23:55 (ссылка)

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

Загрузка ...

Фсемба Яцца

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: 2
Всего: 7

может это поможет?

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  Device: array[0..255] of char;
  Driver: array[0..255] of char;
  Port: array[0..255] of char;
  hDMode: THandle;
  PDMode: PDEVMODE;
begin
  Printer.PrinterIndex := Printer.PrinterIndex;
  Printer.GetPrinter(Device, Driver, Port, hDMode);
  if hDMode <> 0 then begin
    pDMode := GlobalLock(hDMode);
    if pDMode <> nil then begin

      pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
      pDMode^.dmPaperSize := DMPAPER_LEGAL;

     {устанавливаем размер}
      pDMode^.dmFields := pDMode^.dmFields or
        DM_PAPERSIZE or
        DM_PAPERWIDTH or
        DM_PAPERLENGTH;
      pDMode^.dmPaperSize := DMPAPER_USER;
      pDMode^.dmPaperWidth := 100 {ширина};
      pDMode^.dmPaperLength := 100 {длина} ;

     {установка для использования}
      pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
      pDMode^.dmDefaultSource := DMBIN_MANUAL;

      GlobalUnlock(hDMode);
    end;
  end;
  Printer.PrinterIndex := Printer.PrinterIndex;
  Printer.BeginDoc;
  Printer.Canvas.TextOut(100, 100, 'Test 1');
  Printer.EndDoc;
end;

сам не проверял...(взято с DelphiWorld)

а вобще что печетать собрался?

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