亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > Delphi > 正文

在WIN2000/XP下添加自定義紙張的Delphi源代碼

2019-11-18 18:05:22
字體：大 中 小
來源：轉載
供稿：網友
////////////////////////////
//  武漢探索電腦工作室    //
//  http://tansuo.51.net  //
////////////////////////////

//增加規格自定義紙張
//PaperName: 自定義紙張名稱
//PaperWidth: 紙張的寬度，以0.1mm為單位
//PaperLength: 紙張的高度，以0.1mm為單位
PRocedure TDM.AddCustomPaper(const PaperName: string; PaperWidth, PaperLength:integer);
var
PrintDevice, PrintDriver, PrintPort : array[0..255] of Char;
hDMode   : THandle;
hPrinter : THandle;
FormInfo : TFormInfo1;
begin
Printer.GetPrinter(PrintDevice, PrintDriver, PrintPort, hDMode);
OpenPrinter(PrintDevice, hPrinter, nil);
if hPrinter = 0 then
raise Exception.Create('聯接打印機失敗!');

with FormInfo do
begin
Flags := FORM_USER;
pName := PChar(PaperName);
Size.cx := PaperWidth*100;
Size.cy := PaperLength*100;
ImageableArea.Left := 0;
ImageableArea.Top := 0;
ImageableArea.Right := PaperWidth*100;
ImageableArea.Bottom := PaperLength*100;
end;

//修改紙型，如果沒有就新增
if not SetForm(hPrinter, PChar(PaperName), 1, @FormInfo) then
AddForm(hPrinter, 1, @FormInfo);

ClosePrinter(hPrinter);
end;

//刪除自定義規格紙張
//PaperName: 自定義紙張名稱
procedure TDM.DeleteCustomPaper(const PaperName: string);
var
PrintDevice, PrintDriver, PrintPort : array[0..255] of Char;
hDMode   : THandle;
hPrinter : THandle;
begin
Printer.GetPrinter(PrintDevice, PrintDriver, PrintPort, hDMode);
OpenPrinter(PrintDevice, hPrinter, nil);
if hPrinter = 0 then
raise Exception.Create('聯接打印機失敗!');
DeleteForm(hPrinter, PChar(PaperName));
ClosePrinter(hPrinter);
end;

上一篇：三層數據庫與應用程序服務器的小型介紹（Delphi&BCB)

下一篇：Delphi2005學習筆記4(續)——再談Dll以及Package

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
日韩中文字在线| 日韩黄色av网站| 黄色一区二区三区| 日韩综合中文字幕| 色婷婷成人综合| 亚洲欧洲美洲在线综合| 国产欧美精品日韩| 日韩一级裸体免费视频| 国产亚洲在线播放| 国内精品中文字幕| 国产精品视频成人| 中文字幕亚洲欧美日韩高清| 久久天天躁狠狠躁夜夜躁2014| 奇米成人av国产一区二区三区| 欧美高清电影在线看| 亚洲欧洲自拍偷拍| 91免费欧美精品| 欧美最猛性xxxxx免费| 欧美极品在线播放| 久久久久国产精品一区| 成人福利视频在线观看| 欧美影院久久久| 国产精品久久久久久久app| 欧美精品电影免费在线观看| 91av在线播放视频| 欧美性猛交xxxx免费看| 美日韩在线视频| 亚洲国产精品电影| 91wwwcom在线观看| 亚洲免费av电影| 麻豆一区二区在线观看| 亚洲精品www久久久久久广东| 欧美黑人巨大精品一区二区| 日韩激情av在线免费观看| 日韩av一区在线观看| 欧美乱大交xxxxx另类电影| 欧美贵妇videos办公室| 亚洲女人天堂网| 亚洲人成欧美中文字幕| 欧美—级a级欧美特级ar全黄| 欧美日韩第一页| 国产精品一区二区久久| 亚洲激情视频网| 狠狠躁夜夜躁人人躁婷婷91| 亚洲最新在线视频| 懂色aⅴ精品一区二区三区蜜月| 欧美俄罗斯乱妇| 91极品女神在线| 国产精品久久久久久久久免费| 欧美大片在线看| 最近2019中文字幕大全第二页| 中文字幕av一区二区| 在线观看日韩视频| 日韩在线视频线视频免费网站| 欧美一性一乱一交一视频| 97精品伊人久久久大香线蕉| 亚洲一区二区三区sesese| 色偷偷偷亚洲综合网另类| 日本不卡高字幕在线2019| 久久久免费在线观看| 成人国内精品久久久久一区| 国产91精品网站| 亚洲国产精品美女| 亚洲精品国产拍免费91在线| 欧美日韩精品中文字幕| 亚洲国产福利在线| 国内精品久久久久久中文字幕| 亚洲天堂av在线播放| 自拍视频国产精品| 播播国产欧美激情| 欧美在线播放视频| 91精品国产高清自在线| 97精品久久久中文字幕免费| 在线观看日韩欧美| 欧美激情在线狂野欧美精品| 不卡av电影院| 欧美日韩国产色视频| 亚洲日本欧美中文幕| 欧美日韩人人澡狠狠躁视频| 成人深夜直播免费观看| 久久久影视精品| 国产精品久久久久久av下载红粉| 精品久久久一区二区| 日本韩国在线不卡| 亚洲成人在线网| 亚洲第五色综合网| 国产日韩精品在线| 午夜剧场成人观在线视频免费观看| 91久久精品美女| 日韩美女激情视频| 成人国产精品色哟哟| 亚洲黄一区二区| 欧美激情第6页| 色综合天天狠天天透天天伊人| 久久久精品在线| 成人写真视频福利网| 在线观看国产精品淫| 久久夜精品va视频免费观看| 亚洲女同精品视频| 亚洲区免费影片| 日韩精品在线观看网站| 国产欧美一区二区三区在线看| 丝袜一区二区三区| 日韩综合中文字幕| 国产精品久久久久久久久久久不卡| 久久99精品视频一区97| 97av视频在线| 九九热最新视频//这里只有精品| 77777少妇光屁股久久一区| 国产精品欧美亚洲777777| 国产精品777| 日本亚洲欧美成人| 精品调教chinesegay| 国产欧美欧洲在线观看| 亚洲精品久久久久中文字幕欢迎你| 91av在线影院| 欧美在线视频网| 久久久久久久一区二区三区| 亚洲欧美日韩国产成人| 成人在线小视频| 7777免费精品视频| 日韩免费观看视频| 日韩av影视综合网| 色综合老司机第九色激情| 性亚洲最疯狂xxxx高清| 日韩在线视频国产| 精品亚洲va在线va天堂资源站| 欧美激情精品久久久久久免费印度| 中文在线资源观看视频网站免费不卡| 5566成人精品视频免费| 久久人体大胆视频| 国产一区二区三区在线播放免费观看| 日韩精品高清视频| 91久久久久久久一区二区| 欧美专区在线视频| 欧美一区在线直播| 欧美黄色性视频| 91色琪琪电影亚洲精品久久| 久久琪琪电影院| 国产成人精品免费视频| 久久成人人人人精品欧| 狠狠综合久久av一区二区小说| 97精品国产97久久久久久免费| 亚洲毛片在线免费观看| 国产欧美 在线欧美| 亚洲视频在线免费看| 亚洲欧洲国产一区| 国产精品7m视频| 欧洲永久精品大片ww免费漫画| 国产亚洲欧洲高清| 国产一区二中文字幕在线看| 久久久久久尹人网香蕉| 92国产精品久久久久首页| 欧美大片va欧美在线播放| 欧美综合国产精品久久丁香| 亚洲欧洲高清在线| 2020国产精品视频| 午夜精品一区二区三区在线视| www.99久久热国产日韩欧美.com| 国产精品毛片a∨一区二区三区|国| 欧美性做爰毛片| 在线视频中文亚洲| 欧美成人精品在线观看| 日本高清+成人网在线观看|