Принтер не печатает
Подскажите пожалуйста как решить такую проблему.
Вывожу картинку на принтер:
R.Left:=0;
R.Top:=0;
R.Right:=Printer.PageWidth;
R.Bottom:=Printer.PageHeight;
Printer.BeginDoc;
Printer.Canvas.StretchDraw(R,Bmp);
Printer.EndDoc;
Так вот на некоторых принтерах (на пример на LaserJet 1100) данный пример не работает, принтер просто прогоняет пустую страницу, а вот например на DeskJet 3745 все нормально печатается.
Вывожу картинку на принтер:
R.Left:=0;
R.Top:=0;
R.Right:=Printer.PageWidth;
R.Bottom:=Printer.PageHeight;
Printer.BeginDoc;
Printer.Canvas.StretchDraw(R,Bmp);
Printer.EndDoc;
Так вот на некоторых принтерах (на пример на LaserJet 1100) данный пример не работает, принтер просто прогоняет пустую страницу, а вот например на DeskJet 3745 все нормально печатается.
Возможно, некоторые драйверы не поддерживают StretchDraw... встречался с такой проблемой.
Рисуй картинку на другом TCanvas, затем копируй на Canvas принтера, просто операцией Draw().
Рисуй картинку на другом TCanvas, затем копируй на Canvas принтера, просто операцией Draw().