IEGlobalSettings().PdfViewerDefaults.DPI:=300
for I := 0 to PDFView.PdfViewer.PageCount-1 do
Begin
Self.ProgressBar1.Position:=I;
Application.ProcessMessages;
tmpIEBitmap.Clear;
PDFView.PdfViewer.PageIndex:=I;
PDFView.PdfViewer.DrawTo( tmpIEBitmap,
MulDiv(PDFView.PdfViewer.PageWidth,IEGlobalSettings().PdfViewerDefaults.DPI,72),
MulDiv(PDFView.PdfViewer.PageHeight,IEGlobalSettings().PdfViewerDefaults.DPI,72));
End;
a