請問在win2000/winxp下如何改變印表機之預設紙張? |
|
尚未結案
|
|
hanigw
一般會員   發表：6 回覆：0 積分：1 註冊：2002-05-29 發送簡訊給我 |
|
|
lsu
一般會員 發表：1 回覆：14 積分：3 註冊：2003-03-11 發送簡訊給我 |
在 WindowsNT/200 環境下要自訂紙張尺寸所使用的方法與 Win9x 不同，
你必須先為目前的印表機定義一個自訂的 "Form"（呼叫 API: AddForm，
此 API 宣告於 WinSpool 單元中），然後把這個 Form 的名稱設定給
DEVMODES 結構中的 dmFormName 欄位。以下的函式可以直接拿來使用： uses Windows, WinSpool, Printers; (*------------------------------------------------------
Define a new Form (WinNT/2000 only).
If FormName already exists, do nothing and return.
If failed, an exception will be raised.
------------------------------------------------------*)
procedure PrnAddForm(const FormName: string; PaperWidth, PaperLength: integer);
var
PrintDevice, PrintDriver, PrintPort : array[0..255] of Char;
hDMode : THandle;
hPrinter: THandle;
FormInfo: TFormInfo1;
PaperSize: TSize;
PaperRect: TRect;
errcode: integer;
s: string;
begin
Printer.GetPrinter(PrintDevice, PrintDriver, PrintPort, hDMode);
OpenPrinter(PrintDevice, hPrinter, nil);
if hPrinter = 0 then
raise Exception.Create('Failed to open printer!');
FormInfo.Flags := FORM_USER;
FormInfo.pName := PChar(FormName);
PaperSize.cx := PaperWidth;
PaperSize.cy := PaperLength;
PaperRect.Left := 0;
PaperRect.Top := 0;
PaperRect.Right := PaperWidth;
PaperRect.Bottom := PaperLength;
FormInfo.Size := PaperSize;
FormInfo.ImageableArea := PaperRect;
if not AddForm(hPrinter, 1, @FormInfo) then
begin
errcode := GetLastError;
if errcode <> ERROR_FILE_EXISTS then // Form name exists?
begin
case errcode of
ERROR_ACCESS_DENIED: s := 'Access is denied';
ERROR_INVALID_HANDLE: s := 'The handle is invalid';
ERROR_NOT_READY: s := 'The device is not ready';
ERROR_CALL_NOT_IMPLEMENTED:
s := 'Function "AddForm" is not supported on this system';
else
s := 'Failed to add a Form (paper) name!';
end;
raise Exception.Create(s);
end;
end;
ClosePrinter(hPrinter);
end; (*
Set custom paper size for WinNT/2000.
Make sure FormName is supported by current printer,
You can call PrnAddForm to define a new Form.
*)
procedure PrnSetPaperSizeNT(FormName: string; PaperWidth, PaperLength: integer);
var
Device, Driver, Port: array[0..80] of Char;
DevMode: THandle;
pDevmode: PDeviceMode;
begin
// Get printer device name etc.
Printer.GetPrinter(Device, Driver, Port, DevMode);
// force reload of DEVMODE
Printer.SetPrinter(Device, Driver, Port, 0) ;
// get DEVMODE handle
Printer.GetPrinter(Device, Driver, Port, DevMode);
if DevMode <> 0 then
begin
// lock it to get pointer to DEVMODE record
pDevMode := GlobalLock( DevMode );
if pDevmode <> nil then
try
with pDevmode^ do
begin
// modify form
StrLCopy( dmFormName, PChar(FormName), CCHFORMNAME-1 );
// tell printer driver that dmFormname field contains
// data it needs to inspect.
dmPaperWidth := PaperWidth;
dmPaperLength := PaperLength;
dmFields := dmFields or DM_FORMNAME or DM_PAPERWIDTH or DM_PAPERLENGTH;
end;
finally
GlobalUnlock( Devmode ); // unlock devmode handle.
end;
end; { If }
end; procedure TForm1.Button1Click(Sender: TObject);
begin
PrnAddForm(
edFormName.Text,
StrToInt(edPaperWidth.Text),
StrToInt(edPaperLength.Text)
);
PrnSetPaperSizeNT(
edFormName.Text,
StrToInt(edPaperWidth.Text),
StrToInt(edPaperLength.Text)
);
Printer.BeginDoc;
Printer.Canvas.TextOut(10, 10, 'Printer test!');
Printer.EndDoc;
end; 在Delphi帮助中，AddForm定义如下：
BOOL AddForm(
HANDLE hPrinter, // handle to printer object
DWORD Level, // data-structure level
LPBYTE pForm // pointer to form info. data structure
);
下面是我在Delphi中定义的自定义函数AddPaper()：
function AddPaper(PaperName: PChar;fPaperWidth,fPaperHeigth: Double): String;
var
PrintDevice, PrintDriver, PrintPort : array[0..255] of Char;
hDMode : THandle;
hPrinter: THandle;
FormInfo: TForminfo1;
PaperSize: TSize;
PaperRect: TRect;
PaperWidth,PaperHeigth: Integer;
function Zlxs(S: String;nWs: Integer): String; //整理小数位，并转化成厘米
begin
Try
Result:=FloatToStr(StrToFloat(S));
If pos('.',Result)>0 then
Result:=Copy(Result,1,pos('.',Result) 2);
Result:=FloatToStr(StrToFloat(Result)*10000);
Except
Result:='0';
end;
end;
begin
PaperWidth:=StrToInt(Zlxs(FloatToStr(fPaperWidth),3));
Paperheigth:=StrToInt(Zlxs(FloatToStr(fPaperheigth),3));
//判断是否安装打印机，并得到默认打印机的句柄
Printer.GetPrinter(PrintDevice, PrintDriver, PrintPort, hDMode);
OpenPrinter(PrintDevice, hPrinter, nil);
if hPrinter=0 then
begin
Result:='没有安装打印机！';
Exit;
end;
//定义结构
FormInfo.Flags:=FORM_USER;
FormInfo.pName:=PChar(PaperName);
PaperSize.cx:=PaperWidth;
PaperSize.cy:=PaperHeigth;
PaperRect.Left:=0;
PaperRect.Top:=0;
PaperRect.Right:=PaperSize.cx;
PaperRect.Bottom:=PaperSize.cy;
FormInfo.Size:=PaperSize;
FormInfo.ImageableArea:=PaperRect;
AddForm(hPrinter,1,@FormInfo); //添加纸张
ClosePrinter(hPrinter);
end;
3个参数：PaperName:你给纸张命的名（操作系统中叫描述格式），fPaperWidth：纸张宽度,fPaperHeigth：纸张高度。如果没有安装打印机，返回提示信息。如果已经有同样名称的纸张，函数不起作用，建议大家最好在名称中加入“_”，因为很少有这样命名的纸张，你的程序用你的专用纸张也不为过吧（谁叫Windows不提供，而我们偏偏又要用呢）？里面还有一个函数：Zlxs，这是用来整理小数的，经过试验，加入的纸张采用的单位是厘米时宽度用10000时只有1厘米，大家输入的往往是以厘米为单位的，且带小数，所以得用一个函数来将浮点数转换成整数。当然首先还得在uses段中加入Printers,winspool引用。以上代码在D5,D6 Win 2000中运行通过。将这个函数加入管理系统中，在打印之前调用生成专用纸张，省时又省力。
这种方法应该是处理自定义纸张问题的正解，通用性强，也不会浪费打印机的链式（牵引）走纸功能。大家可以根据各自编程工具的方法进行定义，也可以做成.dll文件，这样不支持结构的编程工具，如VFP等也能使用了。
4、 其他小技巧：
在使用OKI打印机时，我们有时会想把一行比较长的数据打在一张“US Std Fanfold”纸上，但“US Std Fanfold”宽度37.78cm，象OKI5330之类的打印机宽度有限，这么宽的纸放不下啊。我们可以采用自定义的方法实现，首先定义新格式，然后将“US Std Fanfold”的宽和高反过来，命个名：“US Std Fanfold(纵向)”，然后在报表设计中使用这张纸并采用横向打印就行了。 procedure UpdatePrint(Awidth,Aheight:integer);
const CustomFormName = 'ZJ Defined'; function Win95SetForm(PDevMode: PDeviceMode): Boolean;
begin
Printer.PrinterIndex := Printer.PrinterIndex;
PDevMode.dmFields := PDevMode.dmFields or DM_PAPERSIZE;
PDevMode.dmPaperSize := 256;
PDevMode.dmFields := PDevMode.dmFields or DM_PAPERWIDTH;
PDevMode.dmPaperWidth := AWidth;
PDevMode.dmFields := PDevMode.dmFields or DM_PAPERLENGTH;
PDevMode.dmPaperLength := AHeight;
Printer.PrinterIndex := Printer.PrinterIndex;
Result := True;
end; function WinNTSetForm(PDevMode: PDeviceMode;
Device: PChar; Port: PChar): Boolean;
var
hPrinter: THandle;
pForm: Pointer;
cbNeeded: DWORD;
cReturned: DWORD;
FormInfo1: TFormInfo1;
begin
Result := False;
if OpenPrinter(Device, hPrinter, nil) then
begin
pForm := nil;
EnumForms(hPrinter, 1, pForm, 0, cbNeeded, cReturned);
GetMem(pForm, cbNeeded); //取pForm的大小并分配内存
try
if EnumForms(hPrinter, 1, pForm, cbNeeded, cbNeeded, cReturned) then
begin
if DeleteForm(hPrinter, PChar(CustomFormName)) then
Dec(cReturned); //删除旧的Form
with FormInfo1 do
begin
Flags := 0;
pName := PChar(CustomFormName);
Size.cx := AWidth * 100;
Size.cy := AHeight * 100;
with ImageAbleArea do
begin
Left := 0;
Top := 0;
Right := Size.cx;
Bottom := Size.cy;
end;
end;
if AddForm(hPrinter, 1, @FormInfo1) then
begin
Printer.PrinterIndex := Printer.PrinterIndex;
PDevMode.dmFields := PDevMode.dmFields or DM_PAPERSIZE;
PDevMode.dmPaperSize := cReturned 1;
Printer.PrinterIndex := Printer.PrinterIndex;
Result := True;
end;
end;
finally
FreeMem(pForm);
end;
end;
end;
var
Device, Driver, Port: array[0..127] of char;
hDevMode: THandle;
PDevMode: PDeviceMode;
begin
Printer.GetPrinter(Device, Driver, Port, hDevMode);
if hDevMode <> 0 then
begin
PDevMode := GlobalLock(hDevMode);
try
if (Win32Platform = VER_PLATFORM_WIN32s) or
(Win32Platform = VER_PLATFORM_WIN32_WINDOWS) then
Win95SetForm(PDevMode)
else if Win32Platform = VER_PLATFORM_WIN32_NT then
WinNTSetForm(PDevMode, Device, Port);
finally
GlobalUnlock(hDevMode);
end;
end
end; 将《Delphi中票据凭证的精确打印》一文中关于设置打印纸张长、宽的内容贴上来，供你参考
file://设置纸张高度-单位：mm
procedure SetPaperHeight(Value:integer);
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
PDMode : PDEVMODE;
begin
file://自定义纸张最小高度127mm
if Value < 127 then Value := 127;
file://自定义纸张最大高度432mm
if Value > 432 then Value := 432;
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then
begin
pDMode := GlobalLock(hDMode);
if pDMode <> nil then
begin
pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or
DM_PAPERLENGTH;
pDMode^.dmPaperSize := DMPAPER_USER;
pDMode^.dmPaperLength := Value * 10;
pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
pDMode^.dmDefaultSource := DMBIN_MANUAL;
GlobalUnlock(hDMode);
end;
end;
Printer.PrinterIndex := Printer.PrinterIndex;
end; file://设置纸张宽度：单位--mm
Procedure SetPaperWidth(Value:integer);
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
PDMode : PDEVMODE;
begin
file://自定义纸张最小宽度76mm
if Value < 76 then Value := 76;
file://自定义纸张最大宽度216mm
if Value > 216 then Value := 216;
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then
begin
pDMode := GlobalLock(hDMode);
if pDMode <> nil then
begin
pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or
DM_PAPERWIDTH;
pDMode^.dmPaperSize := DMPAPER_USER;
file://将毫米单位转换为0.1mm单位
pDMode^.dmPaperWidth := Value * 10;
pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
pDMode^.dmDefaultSource := DMBIN_MANUAL;
GlobalUnlock(hDMode);
end;
end;
Printer.PrinterIndex := Printer.PrinterIndex;
end;
设定纸张大小
Procedure PrintPapersize(Width,Length:integer);
var
Device : array[0..cchDeviceName -1] of Char;
Driver : array[0..(MAX_PATH -1)] of Char;
Port : array[0..32]of Char;
hDMode : THandle;
pDMode : PDevMode; begin
Printer.GetPrinter(Device,Driver,Port,hDMode);
if hDMode <> 0 then
begin
pDMode := GlobalLock(hDMode);
if pDMode <> nil then
begin
pDMode^.dmPaperSize := 256;
pDMode^.dmPaperLength :=Length ;
pDMode^.dmPaperWidth := Width;
pDMode^.dmFields :=pDMode^.dmFields or DM_PAPERSIZE;
pDMode^.dmFields :=pDMode^.dmFields or DM_PAPERLENGTH;
pDMode^.dmFields :=pDMode^.dmFields or DM_PAPERWIDTH;
ResetDC(Printer.Handle,pDMode^);
GlobalUnlock(hDMode);
end;
end; end; uses WinSpool, Printers, Windows; function CustomAddForm (const Name:String; const Width, Height:Double; const PrinterName:String):Boolean;
var
FormInfo1: TFormInfo1;
pFormInfo: PFormInfo1;
hPrinter : THandle;
begin
Result := False;
if OpenPrinter(PChar(PrinterName),hPrinter,NIL) then
begin
with FormInfo1 do
begin
Flags := 0;
pName := PAnsiChar(Name);
Size.cx := Trunc(Width*1000);
Size.cy := Trunc(Height*1000);
ImageableArea.Left := 0;
ImageableArea.Top := 0;
ImageableArea.Bottom := Size.cy;
ImageableArea.Right := Size.cx;
end;
pFormInfo := @FormInfo1;
Result := AddForm(hPrinter,1,pFormInfo);
ClosePrinter(hPrinter);
end;
end; 有两个方法可以在win2000中设置自定义纸张：
1、手工添加
在“控制面板”、“打印机和传真”中选中一台打印机，在“文件”菜单的“服务器属性”中创建新格式即可。
2、程序动态修改
procedure SetPaperSize(X, Y: Integer);
// 单位是0.1mm
//改变devicemode结构
var
Device: array[0..255] of char;
Driver: array[0..255] of char;
Port: array[0..255] of char;
hDMode: THandle;
PDMode: PDEVMODE;
begin
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then
begin
pDMode := GlobalLock(hDMode);
if pDMode <> nil then
begin
if (x = 0) or (y = 0) then
begin
{Set to legal}
pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
{pDMode^.dmPaperSize := DMPAPER_LEGAL; changed by wulianmin}
pDMode^.dmPaperSize := DMPAPER_FANFOLD_US;
end
else
begin
{Set to custom size}
pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH;
pDMode^.dmPaperSize := DMPAPER_USER;
pDMode^.dmPaperWidth := x {SomeValueInTenthsOfAMillimeter};
pDMode^.dmPaperLength := y {SomeValueInTenthsOfAMillimeter};
end;
{Set the bin to use}
pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
pDMode^.dmDefaultSource := DMBIN_MANUAL; GlobalUnlock(hDMode);
end;
end;
end; 我曾经用Delphi 5.0的Printer对象编写打印程序，在许多打印机上使用都没问题
（包括一些其他EPSON打印机），但是在EPSON 460上使用时不能打印，结果发现在这种
环境下，必须给Printer的Title属性赋值后，打印机才会真正去打印，具体方法如下：
Printer.BeginDoc;
Printer.Title := '在这里给打印文档起个名字';
{打印的内容};
Printer.EndDoc;
不知道我的这个经历能否给你一些启示吗？ 你那个程序有没有resetDC，这个函数delphi中不会调用
在使用Printer的Canvas前调用有效呀，偶一直这么用，从票据到激光都有效。
發表人 - lsu 於 2005/07/28 09:37:48
|
|
lsu
一般會員 發表：1 回覆：14 積分：3 註冊：2003-03-11 發送簡訊給我 |
|
|
lsu
一般會員 發表：1 回覆：14 積分：3 註冊：2003-03-11 發送簡訊給我 |
|
|
lsu
一般會員 發表：1 回覆：14 積分：3 註冊：2003-03-11 發送簡訊給我 |
以下是borland有关自定义打印的示范程序，在win9x下绝对好用，在2K/xp下只要没有超过系统已经预先定义好的纸张大小（比如最大A3），也是好用的。 procedure TForm1.Button1Click(Sender: TObject);
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
PDMode : PDEVMODE;
begin
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then begin
pDMode := GlobalLock(hDMode);
if pDMode <> nil then begin {Set to legal}
pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
pDMode^.dmPaperSize := DMPAPER_LEGAL; {Set to custom size}
pDMode^.dmFields := pDMode^.dmFields or
DM_PAPERSIZE or
DM_PAPERWIDTH or
DM_PAPERLENGTH;
pDMode^.dmPaperSize := DMPAPER_USER;
pDMode^.dmPaperWidth := 100 {SomeValueInTenthsOfAMillimeter};
pDMode^.dmPaperLength := 100 {SomeValueInTenthsOfAMillimeter}; {Set the bin to use}
pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
pDMode^.dmDefaultSource := DMBIN_MANUAL; GlobalUnlock(hDMode);
end;
end;
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.BeginDoc;
Printer.Canvas.TextOut(100,100, 'Test 1');
Printer.EndDoc;
end;
|
|
lsu
一般會員 發表：1 回覆：14 積分：3 註冊：2003-03-11 發送簡訊給我 |
配合这几个函数，基本上就够用了： GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX);{页左边距X} GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY);{页上边距y} GetDeviceCaps(Printer.Handle, PHYSICALWIDTH); {物理页宽度} GetDeviceCaps(Printer.Handle, PHYSICALHEIGHT); {物理页高度} Printer.PageWidth; {可打印部分的宽度（工作区）} Printer.PageHeight;{可打印部分高度（工作区）} 获取当前打印机的分辨率
GetDeviceCaps(Printer.Handle,LOGPIXELSX);{打印机横向} GetDeviceCaps(Printer.Handle,LOGPIXELSY);{打印机纵向}
|
|
lsu
一般會員 發表：1 回覆：14 積分：3 註冊：2003-03-11 發送簡訊給我 |
这是一个Tprinter的替代程序，转贴一下，有许多自己控制打印机方面的技巧可以参考一下。 {$include options.inc} unit ZPrinters; interface uses
Classes, Graphics, Windows; { :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Unit: ZPrinters
Version: 2.07
Revision: 19 Nov 2002 Compiler: Delphi 6.0 Professional
State: Production, state-of-the-art code Copyright (C) 2001 LOGICOMM
http://www.logicomm.it
support@logicomm.it ..............................................................................
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: } var // Messages; these are actually consts, to allow for localization. sDpi: string = '%dx%d dpi'; // 300x300 dpi
sDpiSq: string = '%d dpi'; // 300 dpi
sDevice: string = '%s on %s'; // HP LaserJet 4100 on LPT1
sPaper: string = '%s, %dx%d mm'; // A4, 210x297mm
sPortrait: string = 'Portrait';
sLandscape: string = 'Landscape';
sNoSuchDevice: string = 'No such printer: ''%s''.';
sNoDevices: string = 'No printers installed.'#13'Please install a '
+'printer driver from your Windows control '
+'panel, or ask your system administrator.';
sNoDefaultDevice: string = 'No default printer.';
sInvalidDevice: string = 'Selected printer is not valid.';
sNotPrinting: string = 'Printer is not currently printing.';
sPrinting: string = 'Printer is already printing.';
sInvalidOperation: string = 'Operation not supported by current printer.';
sInvalidBin: string = 'Unknown or unsupported bin: ''%s''.';
sInvalidPaper: string = 'Unknown or unsupported paper format: ''%s''.';
sInvalidResolution: string = 'Unknown or unsupported resolution: ''%s''.';
sInvalidOrientation: string = 'Bad orientation: ''%s''.';
sInvalidCopies: string = 'Bad number of copies.'; var // Default paper format for any new
|
發表時間：2005-07-23 19:18:35
IP:61.30.xxx.xxx 未訂閱
系統時間：2024-04-25 11:31:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |