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()；
}