DM1 := nil;
DM2 := nil;
Sz := DocumentProperties(0, 0, Device, DM1^, DM2^, 0);
GetMem(DM1, Sz);
DocumentProperties(0, 0, Device, DM1^, DM2^, DM_OUT_BUFFER);
if DM1^.dmColor >1 then ShowMessage('Tiskárna podporuje více barev')
else ShowMessage('Tiskárna podporuje jen černou a bílou');
if DM1^.dmFields and DM_COLOR <> 0 then ShowMessage('Tiskárna podporuje barevný tisk')
else ShowMessage('Tiskárna nepodporuje barevný tisk');
FreeMem(DM1);
end;
end;
Příště se pustíme do samotného tisku a ukážeme si některá další zajímavá nastavení a vlastnosti tiskárny a tisku všeobecně.