ReportMachine 打印机横向

Portrait 纵向

landscape  横向

RM_reg.pas ;TRMPageSetupForm

打印机设置RM_PageSetup.dfm

 TRMPageSetting定义在RM_Printer.pas

TRMPrinterOrientation = (rmpoPortrait, rmpoLandscape);

 

TRMPageSetting

property PageOr: TRMPrinterOrientation read FPageOr write SetPageOr;

 

TRMPageSetupForm = class(TForm)

property PageSetting: TRMPageSetting read FPageSetting;

 

TRMPageLayout = class(TPersistent)

property PageOrientation: TRMPrinterOrientation read FPageOr write FPageOr;

 

调用打印机设置窗口

RM_reg.pas

procedure TRMPageLayoutProperty.Edit;

打印方法:

RM_Class.pas

procedure TRMReport.PrintReport;

_DoPrintReport函数中

lPrinter := ReportPrinter;

初始值就不对。

ReportPrinter.PaperWidth;
ReportPrinter.PaperHeight;

ReportPrinter.PrintableWidth;
ReportPrinter.PrintableHeight;

 

RMReport1.LoadFromFile('Untitled5.rmf');装载完文件后,RM_Printer.pas里的FRMPrinter变量就变成真实的宽度了从4961变成7016了。也就是说PrintReport无问题了。

RM_Class.pas

TRMReport.LoadFromStream

PrinterName := RMReadString(aStream); 读出原始值。

Pages.LoadFromStream(FReportVersion, aStream);变成7016了

  >lPage.LoadFromStream(aStream);

>TRMReportPage.LoadFromStream

>ChangePaper(FPageSize, PageWidth, PageHeight, FPageBin, FPageOrientation);

RM_Printer.pas

procedure TRMCustomPrinter.DeviceContextChanged;

  >FPaperWidth := GetDeviceCaps(FDC, PHYSICALWIDTH); //纸宽 ,单位为打印机象素

再跟踪

function TRMCustomPrinter.GetDC: HDC;  FDC有为0 的情况,所以获取值。但是xe8没有为0的情况

 

 TRMPrinter.SetPrinterInfo函数里,aPageWidth,aPageHeight根据横竖算过了,在SetSettings又算一遍,不是又退回来了嘛!

procedure TRMPrinter.SetSettings(aPgWidth, aPgHeight: Integer);

 

TRMPrinter.SetSettings

lPDevMode := GlobalLock(lDevMode); 这个lPDevMode 为nil,d7中是正常有值,xe8里为nil,导致后续代码未执行。

FDevMode := GlobalAlloc(GHND,DocumentProperties(0, PrinterHandle, PChar(lPrinterInfo.Device), lStubDevMode, lStubDevMode, 0)); //一直为0

 

D7下

DocumentProperties(0, PrinterHandle, PChar(lPrinterInfo.Device), lStubDevMode, lStubDevMode, 0);=1012;,C6下也是1012;

xe8 delphi下,用Longint类型接受返回值是-1,用dword接受返回的是4294967295,这两个值都是错的,用xe8 c++获得是1076,比c6和d7多是因为用了Unicode的原因?

DocumentProperties()返回最后一个参数设置为 0 时所需的 DEVMODE 缓冲区的字节的数

function DocumentProperties(hWnd: HWND; hPrinter: THandle; pDeviceName: LPWSTR;const pDevModeOutput: TDeviceMode; var pDevModeInput: TDeviceMode;fMode: DWORD): Longint; stdcall; overload;

c6定义

 LONG (APIENTRY* pfnDocumentProperties)(HWND hWnd, HANDLE hPrinter, LPTSTR pDeviceName, PDEVMODE pDevModeOutput, PDEVMODE pDevModeInput,DWORD fMode);

第一步获取nSize不正确,A zero for last param returns the size of buffer needed.最后一个参数为0,后3个都是NULL,不用设定DevMode^参数,就正确了。

焦点就是如何缓冲区的大缓冲区字节的数

https://support.microsoft.com/en-us/kb/167345/zh-cn

https://support.microsoft.com/en-us/kb/140285

http://blog.csdn.net/hjfjoy/article/details/4250164

//果然是unicode的差异,导致获得的字节数不一样,以下代码在c6,xec8下都可以执行。结果验证。
void
__fastcall TForm35::Button1Click(TObject *Sender) { HANDLE hPrinter; DWORD pDevModeBytes; OpenPrinter(L"Microsoft XPS Document Writer", &hPrinter, NULL); pDevModeBytes = DocumentPropertiesW(0, hPrinter, L"Microsoft XPS Document Writer", NULL, NULL, 0); //1076 pDevModeBytes = DocumentPropertiesA(0, hPrinter, "Microsoft XPS Document Writer", NULL, NULL, 0); //1012 }

 

 

LONG
WINAPI
AdvancedDocumentPropertiesA(
IN HWND hWnd,
IN HANDLE hPrinter,
IN LPSTR pDeviceName,
OUT PDEVMODEA pDevModeOutput,
IN PDEVMODEA pDevModeInput
);
LONG
WINAPI
AdvancedDocumentPropertiesW(
IN HWND hWnd,
IN HANDLE hPrinter,
IN LPWSTR pDeviceName,
OUT PDEVMODEW pDevModeOutput,
IN PDEVMODEW pDevModeInput
);

 

RM_Printer.pas  1334 Line

 DocumentProperties(0, PrinterHandle, PChar(lPrinterInfo.Device), lStubDevMode, lStubDevMode, 0); 

>改成下面的就好了。

 DocumentProperties(0, PrinterHandle, PChar(lPrinterInfo.Device), nil, nil, 0);

 

这个计算空间,每一种打印机大小都不一样,打印机牌子、型号不一样,空间大小不相同,只能实际计算了。

 

最后修改正确,监视lPrinter的值如下,和d7相同了。

Draw(MasterReport, lPrinter.Canvas, liRect);

  • 1
    点赞
  • 3
    评论
  • 1
    收藏
  • 扫一扫,分享海报

Report Machine 2.4 =================== 这是一个报表控件包,For Borland Delphi Versions 3,4,5,6.100% 源码. 最后更新日期:2002.05.25. 目录 ----- 说明 特点 最后更新 历史 安装 Demo程序 版权说明 注册 说明 ---- Report Machine是一个报表控件包, Report Machine is reporting tool component. It consists of report engine,designer and preview. Its capabilities comparable with in QuickReport,ReportBuilder. It written on 100% Object Pascal and can be installed in Delphi 2/3/4/5/6 and C++Builder 1/3/4/5/6. 特点 ---- 复杂的报表?在report machine面前,还会有什么复杂的报表存在吗? 不,不会有的,因为这是一个功能强大,完全自动化、完全自由设计的报表控件。 对于一般的主从表,单表,你甚至只需要点动鼠标次数=你的数据字段个数就可以 完成一个完全自定义的,并且支持用户进行格式修改加工,重新设计格式的报表! 想想fast report 吧,report machine会fast report会的,还会它不会的! 这是一个完全中文化报表控件,支持delphi3到delphi6,BCB3到BCB6。 它的最大优点就是:强大与自由! report machine目前主要能做的: 一、支持屏幕打印,控制方法多样,可以打印全部rxlib控件 全部InfoPower控件,TDBGrid,TStringGrid,TImage,TEdit等,TDBGridEh,f1book, TDecisionGrid等等众多控件。 二、支持最终用户设计、修改报表,只需连接相关的数据源,指出数据的位 置(设置报表样式),无论是主从表,子报表,套表,都可迅速生成。开发 一个报表只需几分钟的时间。 三、报表样式可以保存为rmf格式,下次可通过读入使用(配合SQL脚本就可以生成 报表)。并可以把带数据的报表保存为rmp格式,在任何机器上都可以浏览、打印, 而不需要数据库。 四、生成后的报表支持修改,包括字体的设置,边框的设置,修改内容等。 五、报表编辑器内自带ado,bde,ibx,Diamond dao,dbisam等数据访问控件,可以 通过这些控件开发独立的报表制作工具。其使用方法和delphi中的控件是一样的。 六、完全、自由自定义页面、边距、字体,标题和页眉页脚,并可以在自认合适的 地方插入函数来实现当前日期,页合计,总合计等功能,合计字段可以放在页头,分 组头,并支持条件合计,对分组合计,分页合计,总计等只需简单地设置属性即可。 七、完全支持d3--d6,c3--c6。 八、报表中可以在自认合适的事件(on beforeprint,on afterprint等)中加入程 序脚本,以控制、或实现更复杂的打印效果。 九、更新迅速,可根据使用人员与用户的意见,不断的加入新的功能。 十、首家支持缩放打印功能,可以根据打印时选择的纸张自动缩放报表。 十一、多种格式转换,可以把做出的报表转换为html,xml,bmp,jpeg等等格式。 十二、自动对超长记录折行,超长的内容也会自动折行。 十三、最新增加GridView,类似于电子表格,非常非常适合制作复杂报表 最新更新和问题解答请访问论坛:www.pcjingning.com 最后更新 -------- 新版本:2002/05/25更新,欢迎下载(有免费版下载) --FormReport可以打印ListView --TRMReport增加DefaultDictionaryFile属性,可以设置默认数据字典 v.2.2(Build 2002/01/28) - 完善缩放打印功能 - TRMCrossView去掉一些BUG v.2.2(Build 2002/01/11) - 增加缩放打印功能, - TRMFormReport打印StringGrid,DBGrid等Grid时,对超宽Grid增加分页功能, - MemoView增加属性CalcValue,可以访问MemoView中的内容, - CalcMemoView增加TotalCalc属性,现在CalcMemoView科轻松实现页小计,页累计, 页总计,并且可以放在页头,栏目头,分组头,数据头。 v.2.2(Build 2001/12/10) - 修正一些BUG, - 增加了导出到BMP,GIF,JPEG文件功能, - Designer增加最近打开文件功能, - 添加字段的时候可以选择不要在字段名前附加表名。 v.2.1(Build 2001/11/29) - 修正了几个BUG. v.2.1(Build 2001/11/22) - 修正了几个BUG. - 增加多语言功能. v.2.1(Build 2001/11/15) - 修正了几个BUG. v.2.1(Build 2001/11/12) - TRMBandView增加属性LinesPerPage,可以设置每页打印记录数, - TRMBandView增加属性PrintColFirst,当Column>;1时,可以选择先列后行还是 先行后列打印, - 修正没有安装打印机时的错误, - 打印预览功能有些改变和增强. v.2.1(Build 2001/11/07) - EHLib可以打印Footer了, - TRMFormReport增加分组功能, - TRMCalcMemoView可以放在GroupHeader上了, - TRMCalcMemoView增加Filter属性,之计算满足条件的纪录, - 其他一些细节上的改变. v.2.1(Build 2001/11/01) - TRMFormReport中增加了数据对齐方式,数据显示格式. v.2.1(Build 2001/10/30) - 修正预览时,页面设置的错误. v.2.1(Build 2001/10/25) - TRMFormReport可以打印Rx,InfowPower全系列控件, - TRMFormReport可以打印EHLib, - 可以打印多个PageFooter,方便制作页小计. v.2.1(Build 2001/10/18) - 大大增强了TRMFormReport功能,可以与ScreenReport, Dev ExpressPrinting System媲美; - TRMFormReport增加了表格的自动缩放功能.可根据纸张的大小自动进行水平或 垂直方向的表格缩放.也就是说程序员不必再为迁就打印宽度和高度而反复调 整屏幕格式和字体大小,而且对于屏幕上带横向滚动杆的任意超宽表格都可以 缩放到指定大小的纸上.再也不用考虑打印超出纸张的问题了,也不会为迁就 打印而影响屏幕格式的美观而感到遗憾!使得表格打印更直接更方便,最大程 度地减少您的工作量; - TRMFormReport增加一个事件OnPrintObject,在这个事件内程序员可自行编制 TRMFormReport不直接支持打印的任意控件;; - 请注意:TRMDBGridReport,TRMwwDBGridReport等已不再维护,因为TRMFormReport 具有以上几个GridReport的所有功能,并且更强. v.2.1(Build 2001/10/08) - 改掉了几个BUG;; - 增加TRMAngledLabel,可以打印倾斜角度的文字;; - TRMGridReport,TRMFormReport等做了一些改进. v.2.1(Build 2001/09/25) - 改掉了几个BUG;; - 背景图片增加Top,Left属性;; - TRMPictureView增加支持GIF格式图片. v.2.1(Build 2001/09/21) - 增加TRMStringGridReport,直接打印TStringGrid,TDrawGrid等继承自TCustomGrid的Grid;; - 增加TRMDecisionGridReport,直接打印TDecisitonGrid;; - 增加背景图片功能,可以实现套打. v.2.1(Build 2001/09/17) - 修正TRMOLEView只能缩放显示的错误,现在可以按实际大小,居中等显示. - 增加TRXWWRichView,可以打印InfowPowwer中的TwwDBRichView. v.2.1(Build 2001/09/14) - 修正TRMRxRichView插入字段的错误. v2.1 - 改掉一些BUG - 增加属性PrintFrame,PrintVisible,可以实现套打;; - 报表增加选项(布缩放边框宽度),可以防止表格线变粗;; - Printer单元作了大量修改,Windows2000下支持自定义纸张. v1.1 - 对DataManger作了大量修改,现支持各种数据存取控件(直接支持BDE,ADO,IBX,Diamond);; - 增加Query Designer;; - 增加Report Explorer. v1.0 Preview 4 - Bug fixes;; - Added RX DateEdit control to the Dialog controls;; - Added possibility to excluding particular dataset or entire datamodule from all db-related lists (see TfrDataDictionary.DisabledDatasets and code of main demo);; - Added OnBeforePrint property to the report page (see Object Inspector) and OnActivate event to the dialog form;; - Now you can tune export options in the export components (TfrTextExport and etc);; - TRMFormReport做了修改,可以增加TRMFormReport不支持的控件;; - 其它功能增强或修改. v1.0 Preview 3. - Bug fixes;; - Added Data dictionary;; - Some changes in interface;; - 增加Auto Append Blank - TGridReport(TwwGridReport)改进,支持颜色,对齐方式.下一版本将支持分组,合计功能. - 下一版本将增加一个组件TFormReport,直接打印Form,类似于Screen Report. v1.0 Preview 2. - Fixed old bugs, added new;; - 一些性能改善; - 对备注内容处理更完善;; - Added mouse wheel support in designer and preview (D4 and above);; - Object Inspector now looks like Delphi OI;; - Added expression builder;; - More options for ";Text"; object: line and char spacing, top and left gaps, ";Suppress repeated values"; option;; (可是设置行距,字距) - Now you can turn off variable processing in the ";Text"; and ";RichText"; objects. See ";Text only"; option of these objects;; - Added TRMReport.OnObjectClick event. This event fires when user clicks on any object when previewing report;; - Added new Child band;; - Improved export filters (frames export in TXT, tables in RTF, pictures in HTML);; added more export options;; - Added paper bins support;; - Added component for printing table;; - Added ";Columns"; property for data-bands. See last report in the demo;; - Code changed: TfrReport.OnEnterRect now called OnBeforePrint;; - Added TRMDesigner.OnLoadReport, OnSaveReport and CloseQuery properties. 历史记录 -------- 2001.08.30 Report Machine 2.1 2000.05.10 Report Machine 1.1 2000.03.17 Report Machine 1.0正式版 2000.02.21 Report Machine 1.0 Preview 3. 2000.02.12 Report Machine 1.0 Preview 2. 2000.01.25 Report Machine 1.0 Preview 1. Report Machine的第一版. 安装 ----- 1.如果没有安装RxLib 2.60及以上版本,请打开RM.INC文件, 将";{$DEFINE RX}";改为";{$DEFINE RX}"; 2.如果没有安装InfoPower及以上版本,请打开RM.INC文件, 将";{$DEFINE InfoPower}";改为";{$DEFINE InfoPower}"; 3.Delphi 6.X 从Delphi IDE中卸载以前的Report Machine版本。 打开菜单";FileOpen...";打开DclRMachine6.DPK,选择";Install"; 4.Delphi 5.X 从Delphi IDE中卸载以前的Report Machine版本。 打开菜单";FileOpen...";打开DclRMachine5.DPK,选择";Install"; 5.Delphi 4.X 从Delphi IDE中卸载以前的Report Machine版本。 打开所有的DFM文件,选择保存。(因为我是在Delphi 5.0中完成的,DFM文件 与4.X有些不兼容) 打开菜单";FileOpen...";打开DclRMachine4.DPK,选择";Install"; 6.Delphi 4.X 从Delphi IDE中卸载以前的Report Machine版本。 打开所有的DFM文件,选择保存。(因为我是在Delphi 5.0中完成的,DFM文件 与3.X有些不兼容) 打开菜单";FileOpen...";打开DclRMachine3.DPK,选择";Install"; Demo程序 --------- Report Machine包含一些例子,这是学习使用Report Machine的最快途径。 http://rmachine.8u8.com/download/demos.rar 需要用BDE Administrator建立一个Database Alias: 名称: RMachineDemo Path: 版权说明 ---------- Report Machine可免费应用于非商业应用,如果应用于商业用途,请与作者联系。 付费 ------------------ Report Machine是共享控件,如果你做了东西,赚到了money,并且认为Report Machine还不错,请赞助我, 以便作者有动力开发出更好的产品,如果只是拿来玩玩,不需注册. 参考价格:(这只是参考价格,多少你看着办) 个人:40元人民币 公司:200元人民币 现在提供下载的是免费版本,这是个免费版,与标准版相比少了一些控件,包含源码。 网上付费:http://rmachine.y365.com/html/register.htm 汇款地址:天津市蓟县供电局计算站 王海丰 301900 如果你在使用中有什么问题或建议,或发现BUG,请与作者联系,谢谢!!! Report Machine WWW: http://rmachine.yeah.net http://reportmachine.delphibbs.com 作者: wanghaifeng_1@163.net
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值