盒子论坛 v2.1

var
  I,J:integer;
  ADevice,ADriver,APort:array[0..255]of char;
  DeviceHandle:THandle;
  DevMode:PDeviceMode;
  CmWidth.Cmheight:double;
begin
  CmWidth:=GetDeviceCaps(Printer.Handle,LOGPIXELSX)/2.54;
  CmHeight:=GetDeviceCaps(Printer.Handle,LOGPIXELSY)/2.54;
  Printer.PrinterIndex:=0;
  Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
  if DeviceHandle=0 then
  begin
    ////Printer.PrinterIndex:=Printer.PrinterIndex;
    Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
  end;
  if DeviceHandle=0 then
    exit;
  else
    DevMode:=GlobalLock(DeviceHandle);
  With DevMode^ do
  begin
    dmFields:=dmFields or DM_PAPERLENGTH;
    DmpaperLength:=1000;
  end;
  if not DeviceHandle=0 then
    GlobalUnlock(DeviceHandle);
  printer.beginDoc;
  // 打印部分
  printer.EndDoc;
end;

要想 98 和 2000 中都能设置纸张 ,应该怎样做?
----------------------------------------------
-

作者：

30896186 (缘来一家人)	★☆☆☆☆	-
	盒子活跃会员

2003/7/3 16:07:29

1楼：

原因啊，有可能是，2000自带的打印机驱动没有自定义，最好用硬件自带的驱动
----------------------------------------------
-

信息

登陆以后才能回复