terça-feira, 13 de outubro de 2020

Operation not supported on selected printer

No Delphi7 usando o Fast Report 2.5 quando envia um relatório para a impressora, as vezes,  no Windows 10 e 2012 apresenta a mensagem 

Operation not supported on selected printer.

Para resolver esse problema, antes de fazer um frReport.ShowReport faça o seguinte:

var

  dev,

  driv,

  port: array[0..80] of Char;

  deviceMode: THandle;

begin

  Printer.GetPrinter(dev, driv, port, deviceMode);

  Printer.SetPrinter(dev, driv, port, 0);

  frPreview1.Print;

end;


ps: Adicionar a unit printers no uses da interface.


Solução encontrada no site: https://stackoverflow.com/questions/435144/operation-not-supported-and-printer-selected-is-not-valid-errors-while-print