| Author |
 Topic  |
|
|
skippix
USA
68 Posts |
 Posted - Oct 09 2019 : 14:38:26
|
This summer I started having a problem printing from my Delphi application using ImageEn. Until then, everything had been working beautifully. At first, I thought it was the printer. However, I was able to print from every other print-capable application (Photoshop, Windows, Photos, etc.) Unfortunately, I've had other things to deal with, until now. I have a significant photo order to print and I need to get this fixed.
I'm using the code I got here (either in a sample or a forum)
with Printer do
begin
if (Printer.Printing) then
repeat
Inc(z);
Talk (lblPrinterStatus, 'waiting...');
until (not Printer.Printing);
Printer.Title := sImageToPrint;
Printer.BeginDoc;
imgPrintable.IO.PrintImage(Printer.Canvas, 0, 0, 0, 0, ievpCenter,
iehpCenter, iesFillPage, 0, 0, 1);
Printer.EndDoc;
end;
[Edit to add]: Even more baffling, this is problematic only on one of two print production printers. The printer that is working with my application is a DNP80 (for 8x10/12); the one that is failing is a DNP40 (for 5x7/4x6).
The process successfully sends a print message to the printer, but as soon as the printer starts to process, it locks up with an erroneous "end of media" indicator on the printer.
Any ideas?
If you need any additional info, let me know.
Thanks |
|
|
xequte
38610 Posts |
Posted - Oct 10 2019 : 02:04:49
|
Hi
Do you know when or what change precipitated this issue?
The printing code in ImageEn has not changed in quite a while, so it probably isn't a new bug, unless you've recently moved from a very old version of ImageEn.
Does it print if you use other ImageEn printing options, such as DoPrintPreviews? How about if you change some of the parameters, such as iesFillPage?
Nigel
Xequte Software
www.imageen.com
|
 |
|
|
skippix
USA
68 Posts |
Posted - Oct 10 2019 : 04:43:44
|
Now that you mention it, I believe the problems started after updating to the latest build.
I will try your suggestions and report back what happens. |
|
|
|
skippix
USA
68 Posts |
Posted - Oct 10 2019 : 05:40:00
|
Ok, I tried DoPrintPreviews and it will print.
I am upgrading from 8.6 to 8.7 and will try PrintImage again. If that still doesn't work, I'll try changing some of the other parameters per your suggestion. |
|
|
|
skippix
USA
68 Posts |
Posted - Oct 10 2019 : 08:44:34
|
Ok, it appears that it's not an ImageEn problem...
The following code works on the DNP80 but not the DNP40
with Printer do
begin
// Start printing
BeginDoc;
// Set up a large blue font
Canvas.Font.Size := 20;
Canvas.Font.Color := clBlue;
// Write out the page size
Canvas.TextOut(20, 20, 'Page width = '+IntToStr(PageWidth));
Canvas.TextOut(20, 150, 'Page height = '+IntToStr(PageHeight));
// Finish printing
EndDoc;
end;
if anyone has any suggestions, i'd appreciate it, but understand that this has now moved away from being an ImageEn issue. |
|
|
| |
Topic |
|
|
|
Search
Problem Printing
