mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-24 22:19:12 +02:00
IPro, TIpHtmlPreview: make printers print always. Issue #27409, patch from Michl.
git-svn-id: trunk@47606 -
This commit is contained in:
parent
d3056b750a
commit
d30cca924e
@ -13054,6 +13054,7 @@ var
|
|||||||
i : Integer;
|
i : Integer;
|
||||||
begin
|
begin
|
||||||
if (Hyper <> nil) then begin
|
if (Hyper <> nil) then begin
|
||||||
|
Printer.Refresh;
|
||||||
BeginPrint;
|
BeginPrint;
|
||||||
Printer.BeginDoc;
|
Printer.BeginDoc;
|
||||||
try
|
try
|
||||||
|
Loading…
Reference in New Issue
Block a user