请问大虾，怎样获得Windows打印机当前打印纸张名称PaperName

leemingsong 2001-09-22 06:22:13

请问大虾，怎样获得Windows打印机当前打印纸张名称PaperName
TPrinter只能获知PaperHeight,PaperWidth 但我需要的是PaperName
（因为有打印机把我通过PaperHeight,PaperWidth设置的打印纸张认成了Custom,以致于让打印机无法自动打印，而需要人工干预,用A4或其它规定的纸张代替）
帮忙的各位，谢了先
急急急急急急急急急急急急急急急急急急急急

...全文

356 24 打赏收藏转发到动态举报

写回复

用AI写文章

24 条回复

切换为时间正序

请发表友善的回复…

发表回复

leemingsong 2001-12-29

打赏
举报

这问题我自己解决了，呵呵，能给自己加分就好了!!!
调用win API，取得当前设备(打印机)的信息
还是发分吧，这是信用

水之手 2001-10-10

打赏
举报

当前长宽：TPrinter.PaperWidth/PaperHeight.
类型：TPrinter.Paper.
然后将TPrinter.Paper转换成字符串就行了，每种纸张对应的编号是固定的。

leemingsong 2001-10-08

打赏
举报

谢谢楼上这位。
但我还是不明白，我想要的是一个自定义函数，返回当前设置的纸张类型或纸张长宽的函数。

line 2001-10-06

打赏
举报

水之手 2001-10-06

打赏
举报

可以用DeviceCapabilities获取系统标准纸张名称，但是英文的，可以转换为以下常用中文名称：
PageSize1 = "信笺， 8 1/2 x 11 英寸"
PageSize2 = "+A611 小型信笺， 8 1/2 x 11 英寸"
PageSize3 = "小型报， 11 x 17 英寸"
PageSize4 = "分类帐， 17 x 11 英寸"
PageSize5 = "法律文件， 8 1/2 x 14 英寸"
PageSize6 = "声明书，5 1/2 x 8 1/2 英寸"
PageSize7 = "行政文件，7 1/2 x 10 1/2 英寸"
PageSize8 = "A3, 297 x 420 毫米"
PageSize9 = "A4, 210 x 297 毫米"
PageSize10 = "A4小号， 210 x 297 毫米"
PageSize11 = "A5, 148 x 210 毫米"
PageSize12 = "B4, 250 x 354 毫米"
PageSize13 = "B5, 182 x 257 毫米"
PageSize14 = "对开本， 8 1/2 x 13 英寸"
PageSize15 = "四开本， 215 x 275 毫米"
PageSize16 = "10 x 14 英寸"
PageSize17 = "11 x 17 英寸"
PageSize18 = "便条，8 1/2 x 11 英寸"
PageSize19 = "#9 信封， 3 7/8 x 8 7/8 英寸"
PageSize20 = "#10 信封， 4 1/8 x 9 1/2 英寸"
PageSize21 = "#11 信封， 4 1/2 x 10 3/8 英寸"
PageSize22 = "#12 信封， 4 1/2 x 11 英寸"
PageSize23 = "#14 信封， 5 x 11 1/2 英寸"
PageSize24 = "C 尺寸工作单"
PageSize25 = "D 尺寸工作单"
PageSize26 = "E 尺寸工作单"
PageSize27 = "DL 型信封， 110 x 220 毫米"
PageSize28 = "C5 型信封， 162 x 229 毫米"
PageSize29 = "C3 型信封， 324 x 458 毫米"
PageSize30 = "C4 型信封， 229 x 324 毫米"
PageSize31 = "C6 型信封， 114 x 162 毫米"
PageSize32 = "C65 型信封，114 x 229 毫米"
PageSize33 = "B4 型信封， 250 x 353 毫米"
PageSize34 = "B5 型信封，176 x 250 毫米"
PageSize35 = "B6 型信封， 176 x 125 毫米"
PageSize36 = "信封， 110 x 230 毫米"
PageSize37 = "信封大王， 3 7/8 x 7 1/2 英寸"
PageSize38 = "信封， 3 5/8 x 6 1/2 英寸"
PageSize39 = "U.S. 标准复写簿， 14 7/8 x 11 英寸"
PageSize40 = "德国标准复写簿， 8 1/2 x 12 英寸"
PageSize41 = "德国法律复写簿， 8 1/2 x 13 英寸"

leemingsong 2001-10-06

打赏
举报

leemingsong 2001-10-06

打赏
举报

Starrock 2001-09-24

打赏
举报

关注...

leemingsong 2001-09-24

打赏
举报

up^
//////////////////////////////////////////////////////////////////////////
//现在我写了个函数返回当前设置的纸张类型，长宽
//////////////////////////////////////////////////////////////////////////
procedure TForm1.GetPrinterPaper(APrinter:TPrinter;
var APageSize,AHeight,AWidth:integer);
var print:TPrinter;
dout :PDeviceMode;
tmp :TDeviceMode;
HPrint :THANDLE ;
size :integer;
device:PChar;
begin
print := APrinter;
device := PChar(print.printers[print.printerindex]);
OpenPrinter(device,HPrint, nil);
size := DocumentProperties(HWND(nil),HPrint,device,tmp,tmp,0);
GetMem(dout,size+1);
DocumentProperties(HWND(nil),HPrint,device,dout^,tmp,DM_OUT_BUFFER);
APageSize:= dout.dmPaperSize;
AHeight := dout.dmPaperLength div 10;
AWidth := dout.dmpaperWidth div 10;
FreeMem(dout);
ClosePrinter(HPrint);
end;
//////////////////////////////////////////////////////////////////////////
//疑问:APageSize,AHeight,AWidth返回的都是当前的默认值，而并非当前设置值？
//高人请指导一下，或者有写好的示范程序，mail一个,不甚感激
//E-mail: leemingsong@sina.com
//////////////////////////////////////////////////////////////////////////

telstar 2001-09-23