Принтер игнорирует изменение цвета бумаги

Я использую принтер для печати этикеток, который в зависимости от используемой бумаги может печатать или не печатать в цвете (бумага 62 мм х 100 мм позволяет использовать цвет, но 29 мм х 90 мм допускает только монохромный режим).

Итак, чтобы сэкономить время и усилия пользователя, я хочу настроить эти свойства во время выполнения по коду (Размер бумаги, Цвет / монохромный).

У меня есть флажок для выбора монохромного или цветного и формата бумаги, я получаю его из FastReport.

Основная проблема заключается в том, что, когда я пытаюсь изменить эти свойства, размер бумаги действительно изменяется, но свойство цвета просто кажется проигнорированным или что-то еще, потому что оно не изменяется вообще.

Я проверяю это, показывая PrinterSetupDialog до и после запуска следующего кода:

    procedure TEtiquetas.pruebas2Click(Sender: TObject);
var
Device, Driver, Port: array[0..80] of Char;
DevMode: THandle;
pDevmode: PDeviceMode;
begin
 {Get printer device name etc.}
  Printer.GetPrinter(Device, Driver, Port, DevMode);
  {force reload of DEVMODE}
  Printer.SetPrinter(Device, Driver, Port, 0);
  {get DEVMODE handle}
  Printer.GetPrinter(Device, Driver, Port, DevMode);
  if Devmode <> 0 then
  begin
    {lock it to get pointer to DEVMODE record}
    pDevMode := GlobalLock(Devmode);
    if pDevmode <> nil then
    try
      with pDevmode^ do
      begin
        if monocromo.Checked then
        begin
          dmColor:= DMCOLOR_MONOCHROME; //This doesn’t set to the printer
        end
        else
        begin
          dmColor:= DMCOLOR_COLOR; //This doesn’t set to the printer
        end;
        {modify paper size}
        dmPapersize := TfrxReportPage(Report.FindObject('Page1')).PaperSize; //this sets properly
        {tell printer driver that dmPapersize field contains data it needs to inspect}
        dmFields := dmFields or DM_PAPERSIZE;
      end;
    finally
    {unlock DEVMODE handle}
    GlobalUnlock(Devmode);
    end;
  end;

end;

когда я показываю PrinterSetupDialog перед запуском описанной выше процедуры, мне не нужны ни размер, ни цвет бумаги (скажем, бумага: 62 X 100, цвет: красный / черный)

и после запуска процедуры я получаю правильную бумагу, поэтому она изменяет принтер, но цвет полностью игнорируется (скажем, бумага: 29 X 90, цвет: красный / черный), в этом случае я хотел, чтобы цвет изменился на монохромный но это просто не так.

Я понятия не имею, как изменить свойства принтера по коду, если у вас есть какие-либо советы, я буду очень благодарен.

Я использую Delphi Rio VCL.

Всего 1 ответ


Чтобы ваши изменения в поле dmColor вступили в силу, вам необходимо установить бит dmFields в dmFields в дополнение к биту DM_PAPERSIZE :

dmFields := dmFields or DM_PAPERSIZE or DM_COLOR

Из документации

dmFields

Указывает, были ли инициализированы определенные члены структуры DEVMODE. Если элемент инициализирован, устанавливается соответствующий ему бит, в противном случае этот бит сбрасывается. Драйвер поддерживает только те элементы DEVMODE, которые соответствуют технологии принтера или дисплея.

Ваш драйвер принтера не dmColor ваши изменения в поле dmColor , так как вы не установили соответствующий бит DM_COLOR ( DM_COLOR ).


Есть идеи?

10000