C++Builder中动态更改自定义打印纸张

因为网上只有Delphi的例子，所以我在用CB写的时候发现有些例子用不了，就简单查了一下资料，一生气就自己写了，怕网友用编程遇到这种情况，就马上上传了。

void _ _ fast call t form 1::bit BTN 1 click(to object * Sender)
{
char * ad device，* ADriver，* APort
THandle device mode；
PDeviceMode DevMode；
int长度，宽度；
长度= 1400；
width = 2410；//将自定义纸张的尺寸单位设置为0.1mm
ad device = new char[100]；
ad driver = new char[100]；
a port = new char[100]；
//Get printer
printer()-> Get printer(a device，adriver，aport，device mode)；
//获取PDevMode结构
devmode =(_ device modea *)global lock((void *)device mode)；
//设置可修改的值
devmode-> DM fields = devmode-> DM fields | DM _ papersize；
DevMode-> DM fields = DevMode-> DM fields | DM _ paper length；
DevMode-> DM fields = DevMode-> DM fields | DM _ paper width；
//设置要修改的值
devmode-> DM papersize = DM paper _ user；//设置为自定义纸张
devmode-> dmpaperlength = length；
DevMode-> DM paperwidth = width；
//测试打印
Printer()-> begin doc()；
TextOut(Printer()--> Handle，0，0，"-"，17)；
Printer()-> new page()；
TextOut(Printer()--> Handle，0，0，" ++++++++++ "，18)；
Printer()-> new page()；
Printer()-> EndDoc()；
}