Object.PaintTo(Handle, 10, 10);

Hi, I try to print through this code a visual component e.g TPanel,
TCotrolPage etc but when I print, it is so small, it's not WYSIWYG. I tried
to get any solution like changig froms propertis about the printig scales
but I was not lucky so far....

if printdialog1.Execute then
with Printer do

    begin
    BeginDoc;
     pagecontrol1.PaintTo(Handle, 10, 10);

    EndDoc;
    end;

end;