Bitmap - Imprimindo com zoom

Bitmap := TBitmap.Create;

try

  Bitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);

  // Imprime o bitmap

  Printer.BeginDoc;

  try

    Printer.Canvas.CopyRect(Rect(0,0,Bitmap.Width * 4,Bitmap.Height * 4), Bitmap.Canvas, Rect(0,0,Bitmap.Width, Bitmap.Height ));

    Printer.EndDoc;

  except

    Printer.Abort;

    raise;

  end;

finally

  Bitmap.Free;

end;

// o numero * 4 é o fator de ZOOM  =  4x