CB编程中动态更改自定义打印纸张

2016-02-19 15:32 9 1 收藏

下面这个CB编程中动态更改自定义打印纸张教程由图老师小编精心推荐选出，过程简单易学超容易上手，喜欢就要赶紧get起来哦！

【 tulaoshi.com - 编程语言】

　　因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，就马上传了上来。

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
char *ADevice, *ADriver, *APort;
THandle DeviceMode;
PDeviceMode DevMode;
int length,width;
length=1400;
width=2410;//设定自定义纸张的尺寸单位为0.1毫米
ADevice =new char[100];
ADriver =new char[100];
APort =new char[100];
//获取打印机
Printer()-GetPrinter(ADevice, ADriver, APort,DeviceMode);
//获取PDevMode结构
DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
//设定可以修改的值
DevMode-dmFields = DevMode-dmFields|DM_PAPERSIZE;
DevMode-dmFields = DevMode-dmFields|DM_PAPERLENGTH;
DevMode-dmFields = DevMode-dmFields|DM_PAPERWIDTH;
//设定要修改的值
DevMode-dmPaperSize=DMPAPER_USER;//设为自定义纸张
DevMode-dmPaperLength=length;
DevMode-dmPaperWidth=width;
//测试打印
Printer()-BeginDoc();
TextOut(Printer()-Handle, 0, 0, "-----------------",17);
Printer()-NewPage();
TextOut(Printer()-Handle, 0, 0, "++++++++++++++++++",18);
Printer()-NewPage();
Printer()-EndDoc();
}

来源:https://www.tulaoshi.com/n/20160219/1609852.html

上一篇：如何在BCB中使用DirectX
下一篇：过了爱做梦的年纪轰轰烈烈不如平静 - QQ情侣分组

看过《CB编程中动态更改自定义打印纸张》的人还看了以下文章更多>>

如何在Windows XP中设置自定义纸张

标签：电脑入门

笔者一台针式打印机一直使用正常，因安装一套新的软件，把操作系统升级到了Windows XP。不料却发现了一个不大不小的问题，原先在Windows 98下打印机自定义纸的设置选项没有了，而我又需要非标准纸打印，经过一番摸索，才找到了解决办法。点击开始→设置→打印机和传真，在出现的窗口中选择文件中的打印服务器属性。在弹出的属性对话...

photoshop教程动态表情自定义

标签： PS教程 PS基础

在这个网络聊天盛行的年代，QQ是最常用的一款聊天工具。与他人聊天，必定少不了相互发送好玩的QQ 表情，可是，很多朋友都说“现在网上下载的表情没有新鲜感，我有的基本大家都有了”。怎么办呢？今天教大家自己做表情。不仅仅只用在表情上哦。也可以当做 QQ 动态头像呢~ &nb...

修改自定义数据类型精度

标签： SQLServer

/*--修改自定义数据类型精度的示例自定义数据类型一旦被引用,就不能再修改和删除,如果要修改数据的精度,就非常麻烦,下面的示例演示了如何修改假设要修改的自定义变量名为aa --*/ --1.修改自定义变量类型的名称 exec sp_rename ’aa’,’aa_bak’,’USERDATATYPE...

打印纸上重复出现污迹

标签：电脑入门

打印纸上重复出现污迹针式打印机重复出现脏污的故障大多是由于色带脱毛或油墨过多引起的，更换色带盒即可排除。喷墨打印机重复出现脏污是由于墨水盒或输墨管漏墨所致；当喷嘴性能不良时，喷出的墨水与剩余墨水不能很好断开而处于平衡状态。也会出现漏墨现象；而激光打印机出现此类现象有一定的规律性，由于一张纸通过打印机时。机内...

如何修改自定义Webpart 的标题(downmoon)

如何修改自定义Webpart的标题？在事件里很好写比如private void BtnText_Click(object sender, EventArgs e) { this.Title = this.txtTitle.Text; }另外网上比较浒的一个方法是：public override ToolPart[] GetToolParts() { ToolPart[] toolparts = new ToolPart[2]; WebPartToolPart wptp = new WebPartToolPart(); CustomPropertyToolPart...

查看更多精彩>>