[shoulder]

Gracias quedo bien asi!!, lo hice div 5 sino me separaba de hoja y autosize..

Código Delphi [-]

procedure Bitmap2Pdf(const BitmapPath, OutputPDFPath: string);
var
  BMP: TBitmap;
  PDF: TGDIPages;
begin
  BMP := TBitmap.Create();
  PDF := TGDIPages.Create(nil);
  try
    PDF.BeginDoc();
    BMP.LoadFromFile(BitmapPath);
    PDF.DrawBMP(BMP, 0, BMP.Width div 5);
    Pdf.AutoSize := True;
    PDF.ExportPDFForceJPEGCompression := 80;
    PDF.EndDoc();
    PDF.ExportPDF(OutputPDFPath,False, False);
  finally
    BMP.Free();
    PDF.Free();
  end;
end;