Я использую принтер для печати этикеток, который в зависимости от используемой бумаги может печатать или не печатать в цвете (бумага 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
).