Delphi中制作打印预览对话框

这周因为项目需要制作打印预览，网上搜索了很多资料，包括用TMetafile等等方式。发现效果不是很好。最后找到一个相关控件，位于EHLib控件包中的TPrewviewBox控件。

将控件添加到窗体后，将对printer的所有操作都应用在PreviewBox.printer中，即可在PreviewBox看到打印预览的效果，使用Prewview.Printer.print即可将内容打印出来，很是方便。