<div dir="ltr">I have recently upgraded to Lazarus 1.4.2, running on Windows 7. <div>I have used the following procedure for 14 years on Delphi 4, and Lazarus 1.2.6, on Windows XP, Vista, and Windows 7. </div><div><br></div><div><div>procedure TFormPrinter.GapWaiveButtonClick(Sender: TObject);</div><div>var GapwaiveDrawer:Gapwaive_Drawer;</div><div> </div><div><br></div><div>previewing:boolean;</div><div>preview:boolean;</div><div>deal_counter:integer;</div><div>this_font:tfont;</div><div>this_page:page;</div><div><br></div><div>begin</div><div> </div><div>PrintImage.Visible:=true;</div><div>sho_line(109);</div><div>PrintImage.Enabled:=true;</div><div>sho_line(111);</div><div>PrintImage.BringToFront;</div><div>sho_line(113);</div><div>printimage.Top:=0;</div><div>sho_line(115);</div><div>printimage.Left:=0;</div><div>sho_line(117);</div><div>printimage.Width:=1000;</div><div>sho_line(119);</div><div>printimage.Height:=750;</div><div>sho_line(121);</div><div>hidebuttons;</div><div>sho_line(123);</div><div>PrintImage.Top:=0;</div><div>sho_line(125);</div><div>printimage.Left:=0;</div><div>sho_line(127);</div><div>printimage.Width:=round(20*96);</div><div>sho_line(129);</div><div>printimage.Height:=round(9.50*96);</div><div>sho_line(131);</div><div>preview:=true;</div><div>sho_line(133);</div><div>this_font:=tfont.create;</div><div>sho_line(135);</div><div>this_font.Name:='Times New Roman';</div><div>sho_line(137);</div><div>this_font.size:=12;</div><div>sho_line(139);</div><div>this_font.Style:=[fsbold];</div><div>sho_line(141);</div><div>setpage(printImage.canvas,preview,8.50,11.00,0,0,0,0,this_font,this_page);</div><div>sho_line(143);</div><div>PrintImage.BringToFront;</div><div>sho_line(145);</div><div>previewing:=true;</div><div>sho_line(147);</div><div>printerSetupdialog1.Execute;</div><div>sho_line(149);                    </div></div><div><br></div><div>The sho_line() is a debugging tool I use to see exactly where the error takes place. </div><div>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. </div><div>What do I need to look for? </div><div><br></div><div><br></div><div><br></div></div>