I have recently upgraded to Lazarus 1.4.2, running on Windows 7. I have used the following procedure for 14 years on Delphi 4, and Lazarus 1.2.6, on Windows XP, Vista, and Windows 7.

procedure TFormPrinter.GapWaiveButtonClick(Sender: TObject);
var GapwaiveDrawer:Gapwaive_Drawer;
previewing:boolean;
preview:boolean;
deal_counter:integer;
this_font:tfont;
this_page:page;
begin
PrintImage.Visible:=true;
sho_line(109);
PrintImage.Enabled:=true;
sho_line(111);
PrintImage.BringToFront;
sho_line(113);
printimage.Top:=0;
sho_line(115);
printimage.Left:=0;
sho_line(117);
printimage.Width:=1000;
sho_line(119);
printimage.Height:=750;
sho_line(121);
hidebuttons;
sho_line(123);
PrintImage.Top:=0;
sho_line(125);
printimage.Left:=0;
sho_line(127);
printimage.Width:=round(20*96);
sho_line(129);
printimage.Height:=round(9.50*96);
sho_line(131);
preview:=true;
sho_line(133);
this_font:=tfont.create;
sho_line(135);
this_font.Name:='Times New Roman';
sho_line(137);
this_font.size:=12;
sho_line(139);
this_font.Style:=[fsbold];
sho_line(141);
setpage(printImage.canvas,preview,8.50,11.00,0,0,0,0,this_font,this_page);
sho_line(143);
PrintImage.BringToFront;
sho_line(145);
previewing:=true;
sho_line(147);
printerSetupdialog1.Execute;
sho_line(149);

The sho_line() is a debugging tool I use to see exactly where the error takes place.
After I installed Lazarus 1.4.2, when I get to line 148, and try the printerSetupdialog1.Execute, I get the Control-C hit error. What do I need to look for?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20150825/6c1e1550/attachment.html>

I have recently upgraded to Lazarus 1.4.2, running on Windows 7. I have used the following procedure for 14 years on Delphi 4, and Lazarus 1.2.6, on Windows XP, Vista, and Windows 7.

procedure TFormPrinter.GapWaiveButtonClick(Sender: TObject);
var GapwaiveDrawer:Gapwaive_Drawer;
previewing:boolean;
preview:boolean;
deal_counter:integer;
this_font:tfont;
this_page:page;
begin
PrintImage.Visible:=true;
sho_line(109);
PrintImage.Enabled:=true;
sho_line(111);
PrintImage.BringToFront;
sho_line(113);
printimage.Top:=0;
sho_line(115);
printimage.Left:=0;
sho_line(117);
printimage.Width:=1000;
sho_line(119);
printimage.Height:=750;
sho_line(121);
hidebuttons;
sho_line(123);
PrintImage.Top:=0;
sho_line(125);
printimage.Left:=0;
sho_line(127);
printimage.Width:=round(20*96);
sho_line(129);
printimage.Height:=round(9.50*96);
sho_line(131);
preview:=true;
sho_line(133);
this_font:=tfont.create;
sho_line(135);
this_font.Name:='Times New Roman';
sho_line(137);
this_font.size:=12;
sho_line(139);
this_font.Style:=[fsbold];
sho_line(141);
setpage(printImage.canvas,preview,8.50,11.00,0,0,0,0,this_font,this_page);
sho_line(143);
PrintImage.BringToFront;
sho_line(145);
previewing:=true;
sho_line(147);
printerSetupdialog1.Execute;
sho_line(149);

The sho_line() is a debugging tool I use to see exactly where the error takes place. After I installed Lazarus 1.4.2, when I get to line 148, and try the printerSetupdialog1.Execute, I get the Control-C hit error. What do I need to look for?

What do you mean with "Control-C hit error"?

Mattias

Does your project have a dependency on the printers4lazarus package? If not, add this dependency.

Bart

It does.

Sent from my iPhone

That is the error message that comes up

Sent from my iPhone

Error screen pops up and displays "Control-C hit. Press OK to ignore and risk data corruption. Press Cancel ti kill the program." When I hit OK it exits the procedure.

Sent from my iPhone