在Win2000操作系统下怎样自定义针式打印机的纸张大小？

Question

同上

Answer 1

在Win2000操作系统下怎样自定义针式打印机的纸张大小？
我也有同样的苦恼,2000下只能打半拉子,你的打印机是不是epson lq 1600系列的

Answer 2

你应该在你的模块里加入一个打印设置对话框，Delphi提供得有啊：）

Answer 3

不然就得硬写出，需要定义一个TPRINTER，然后有参数的：）

Answer 4

var
  aDevice: array[0..CCHDEVICENAME-1] of Char;
  aDriver: array[0..MAX_PATH-1] of Char;
  aPort: array[0..31] of Char;
  hDevMode: THandle;
  pDevMode: PDeviceMode;
begin
  // 获取打印机DeviceMode的句柄
  Printer.GetPrinter(aDevice, aDriver, aPort, hDevMode);
  if hDevMode <> 0 then
  begin
    // 获取指向DeviceMode的指针
    pDevMode := GlobalLock(hDevMode);
    if pDevMode <> nil then
    begin
      pDevMode^.dmPaperSize := DMPAPER_USER;
      pDevMode^.dmPaperLength:= Round(FPageSetup.PageHeight*100);
      pDevMode^.dmPaperWidth := Round(FPageSetup.PageWidth*100);
      pDevMode^.dmFields := pDevMode^.dmFields or DM_PAPERSIZE;
      pDevMode^.dmFields := pDevMode^.dmFields or DM_PAPERLENGTH;
      pDevMode^.dmFields := pDevMode^.dmFields or DM_PAPERWIDTH;
      ResetDC(Printer.Handle, pDevMode^);
      GlobalUnlock(hDevMode);
    end;
  end;
//用修改DeviceMode的方法的话，只是改变你程序中的打印机设置，不会影响其他程序打印的。

Answer 5

以管理员身份登录，控制面板－＞打印机－＞文件菜单－＞服务器属性
－＞创建新格式－＞表格明（custom）－＞定义大小，结束后存入自定义类型。

Answer 6

呵呵。楼上的兄弟。
我是以管理员登录。
创建新格式－》定义大小后直接单击“保存格式”按钮了。看到你和aaaa 都有说“结束后存入自定义类型”。不知什么意思，没看到这一项。