[aqula]

Нашел в нете модуль который сохраняет bmp в pdf

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Bm:TBitmap;
 hWinDC:THandle;
begin
  Bm:=TBitmap.Create;
  Bm.Width:=Self.Width;
  Bm.Height:=Self.Height;
  hWinDC:=GetWindowDC(Self.Handle);
  BitBlt(Bm.Canvas.Handle,0,0,Bm.Width, Bm.Height, hWinDC,0,0,SRCCOPY);
  ReleaseDC(Self.Handle,hWinDC);
  if SaveDialog1.Execute then
    bmp2pdf.BMPtoPDF(Bm,SaveDialog1.FileName);
  Bm.Free;

Но в маленьком ноуте форма вся не влезает. появляется скроллинг. И печатает урезанную форму. Как сделать чтоб вся форма влезала в файл (без скроллбара)?