delphi中怎样让Printer打印前自动选中A3的纸张？？

不知道怎么回事？不知道用delphi到底行不行？

printer.PageHeight:=420;
printer.PageWidth:=297;
这样不行么，这就是A3纸的大小

你这样吧.你可以先到Word里设置一下你的纸张的大小.然后在来
Printer.BeginDoc;
...
Printer.Canvas.TextOut(200, 100, "fdfdsad很长的字符串！");
...
Printer.EndDoc;
里进行定义X,Y.下面是我设置Word宏录到的一段宏.你看一下.我选择的就是A3的纸张.
Sub Macro1()
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2.54)
        .BottomMargin = CentimetersToPoints(2.54)
        .LeftMargin = CentimetersToPoints(3.17)
        .RightMargin = CentimetersToPoints(3.17)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.75)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(42)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeLineGrid
    End With
End Sub
其实最重要的就是
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(42)
就是A3的纸张大小.

下面的文章是我复制来的，你看看对你有没有用动态调整打印机纸张大小 ----信息管理系统中经常要提供各种打印功能，例如报表打印、凭证打印以及发票打印。在这些打印过程中所需要纸张的大小往往是不一致的，例如，打印报表有可能使用A4 纸或A3 纸，打印凭证或发票可能需要将打印纸张设置成自定义大小。如果在同一台打印机上打印这些内容，那么就应该针对不同的打印内容设置不同的纸张尺寸。显然如果用手动的方法来设置打印机的纸张尺寸是件很麻烦的事，最好的方法是让程序动态地修改打印机的纸张尺寸。解决问题的思路----通过查阅API 函数技术文档可知，每个打印机都拥有唯一的一个叫做DevMode 的结构，与打印机相关的各项参数被存放在这个结构中。通过对DevMode 结构的分析，发现与设置打印机纸张大小有关的结构成员有四项：dmFields、 dmPaperSize、dmPaperLength 以及dmPaperWidth。dmFields 是DevMode 的标志位初始化部分，如果要修改结构中的某些成员，那么dmFields 中相应位应被置位。dmPaperSize 表示打印机当前默认的打印纸张的大小，若要设置自定义纸张该项应为0（注，上述解释是根据微软提供的技术文档，但是在Delphi 中应将该成员设置成＄100 即256）。 dmPaperLength 和dmPaperWidth 只是在设置自定义大小纸张时使用，分别表示纸张的长度和宽度。如何对打印机的DevMode 结构进行修改呢？无非采用两种方法，一种是利用Delphi 提供的TPrinter 类中的某些方法，还有一种是调用与打印有关的API 函数。下面就以 Delphi 为开发工具，以Epson 1600K 为默认打印机，用两种不同的方法来实现这一功能。
方法一：利用Delphi 的TPrinter 类 ----TPrinter 类是Delphi 对Windows 打印处理系统的封装，它能够帮助程序员在开发打印程序时尽可能地减少工作量。在程序中使用TPrinter，只要在单元的Use 子句后面添加Printers 即可。当前打印机的DevMode 结构的句柄可以通过调用Tprinter 类中的GetPrinter 方法来获取。当程序获得DevMode 结构的句柄后，就调用 GlobalLock 函数来得到指向该结构的指针，随后可对结构中的某些成员进行修改。下面就举一个例子来说明这一问题：假设当前打印机的默认纸张尺寸是A3 纸，现在要打印长度为114mm、宽度为190mm 的纸张。为了简单起见，我们只在Form1 上放置一个 Button1 按钮，增加一个OnClick 事件，在Use 子句后添加Printers。程序的代码如下： Procedure TForm1.Button1Click(Sender: TObject);
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);
// 获取打印机DevMode 结构的句柄值，
  存放在hDMode 中
   if hDMode < > 0 then begin
       pDMode := GlobalLock(hDMode);
// 获取指向打印机DevMode 结构的// 指针
       if pDMode < > nil then begin
          pDMode^.dmPaperSize := 256;
// 如果要将当前打印机纸张变为自定义
dmPaperSize 必须设置成256
　　pDMode^.dmPaperLength := 1140;
　　pDMode^.dmPaperWidth := 1900;
  　 pDMode^.dmFields := pDMode^.dmFields or
DM_PAPERSIZE;
  pDMode^.dmFields :=
    pDMode^.dmFields or DM_PAPERLENGTH;
　pDMode^.dmFields :=
    pDMode^.dmFields or DM_PAPERWIDTH;
     {  以上三条语句是对相应
        的dmFields 成员进行置位。}
　　ResetDC(Printer.Handle,pDMode^);
// 设置打印机设备环境句柄的值
　　GlobalUnlock(hDMode);
　　end;
   end;
{ 下面的代码是为了测试打印机是否
  按190 ＊114 纸张大小来打印 }
   with Printer do begin
      BeginDoc;
      Canvas.TextOut(10,10,‘Hello, My Friend!');
      EndDoc;
   end;
end;方法二：利用有关打印的Windows API 函数 ----解决问题的思路和第一种方法类似，首先要获取当前打印机的DevMode 结构的指针，然后再对该结构进行修改，从而修改打印机纸张大小。要完成上述功能，就得调用 DocumentProperties 函数。利用该函数程序就可以获取并修改与当前打印机相关的DevMode 结构中的成员。DocumentProperties 函数申明如下： LONG DocumentProperties
(
    HWND       hWnd,
    HANDLE     hPrinter,
    LPTSTR      pDeviceName,
    PDEVMODE  pDevModeOutput,
    PDEVMODE  pDevModeInput,
    DWORD     fMode
);----六个参数中只有pDevModeOutput 是输出变量，其余五个参数必须由程序给出具体值。其中，hWnd 表征当前窗口的句柄值；hPrinter 表示当前打印机的句柄；pDeviceName 是对打印机设备的描述；pDevModeOutput 是指向句柄值为hPrinter 的打印机 DevMode 结构的指针；pDevModeInput 是指向一个修改后的DevMode 结构的指针，该结构有待于被句柄值为hPrinter 的打印机接受；fMode 定义了该函数的具体功能，如果取值DM_IN_BUFFER 那么表示打印机接受由参数pDevModeInput 表示的由程序修改了的DevMode 值，如果取值DM_OUT_BUFFER 那么程序可以通过参数pDevModeOutput 来获取打印机的DevMode 值，如果fMode 为零，则函数返回的值表示结构 DevMode 所需的字节数。承接上述例子，现在将190 ＊114 大小的纸张设成A4 纸。再往Form1 上放置按钮Button2，增加OnClick 事件，在Use 子句后面添加WinSpool。代码如下： Procedure TForm1.Button2Click(Sender: TObject);
var
   PrnHd  :  THandle;
   PrnInfo : PPrinterInfo1;
   pcbNeeded : DWORD;
   PDevModeBytes : DWORD;
   DevMode: PDeviceMode;
   PrnHdc : HDC;
   DocInfo : PDocInfo;
begin
   OpenPrinter(‘Epson LQ －1600K',PrnHd,nil);
   // 获得打印机句柄PrnHd
   GetMem(PrnInfo,1024);
   GetPrinter(PrnHd,1,PrnInfo,1024,@pcbNeeded);
   PDevModeBytes:= DocumentProperties
( Handle,PrnHd,prninfo^.
  pDescription,DevMode^,DevMode^,0 );
{  获取DevMode 结构所需的字节数 }
   GetMem(DevMode,PDevModeBytes);
// 给结构DevMode 分配空间
   DocumentProperties( Handle,PrnHd,PrnInfo^.p
  Description,DevMode^,DevMode^,DM_OUT_BUFFER );
// 获取打印机的DevMode 结构
   With DevMode^ do begin
      dmPaperSize := DMPAPER_A4     ;
// 将纸张设置成A4 纸
      dmFields := dmFields or DM_PAPERSIZE;
   end;
   DocumentProperties( Handle,PrnHd,PrnInfo^.p
Description,DevMode^,DevMode^,
DM_OUT_BUFFER or DM_IN_BUFFER);
// 修改DevMode 结构。
  { 下面的代码是为了测试打印机
    是否按A4 纸大小来打印  }
   PrnHdc := CreateDC
( nil, ‘Epson LQ －1600K',nil,DevMode );
   GetMem( DocInfo, 100 );
   With DocInfo^ do begin
      cbSize := sizeof(DocInfo);
      lpszDocName := nil;
      lpszOutput := nil;
      lpszDatatype := nil;
      fwType := DI_APPBANDING;
   end;
   StartDoc( PrnHdc, DocInfo^);
   StartPage(PrnHdc);
   TextOut( PrnHdc, 10, 10, ‘Hello My Friend!',17);
   EndPage(PrnHdc);
   EndDoc(PrnHdc);
   DeleteDC(PrnHdc);
   FreeMem(DocInfo);
   FreeMem(PrnInfo);
   FreeMem(DevMode);
end;----至此，程序实现了本文开头所提出的要求。需要指出的是，上述代码是在程序运行时，动态地改变打印机纸张大小，而不改变打印机默认纸张大小。也就是说当打印程序运行结束后，打印机还是会按照默认打印纸张大小来打印、走纸。动态调整打印机纸张尺寸也是因打印机而异，某些打印机基本不支持自定义纸张，例如惠普的HP DeskJet 1120C 喷墨打印机以及众多激光打印机。因此在这些打印机上，不能实现按任意纸张大小打印。对于一些针式打印机则没有上述问题。 ----上述程序是在Windows 95 环境下，用Delphi 4.0 为开发工具调试通过。

谢谢大家！我现在已经实现了自定义纸张，名称为“zp0001”大小为170mmX298mm，当我手选该纸张打印，完全是按照它的大小来打印的，但是我想用程序选择这个纸张而已，怎么办？..
setPaper("zp0001",170,298);
Printer.BeginDoc;
...
Printer.Canvas.TextOut(200, 100, "fdfdsad很长的字符串！");
...
Printer.EndDoc;

请问你是怎么实现自定义的：
我遇到的问题是：
打印机：Epson LQ-300K
系统：win98
系统的纸张选择自定义。
程序：在QR设置Papersize为：Custom.可以实现自定义但是当系统换为Win2000和Winxp就不起作用了，不可以自定义，配置如下：
打印机：Epson LQ-300K
系统：Win2000或Winxp
系统的纸张选择自定义（在设置-打印机-文件-服务器属性-新建）
程序：在QR设置Papersize为：Custom.或者defult
结果：就不可以自定义了。

to Bigjason:
你知道我的问题吗？
你的问题我知道是怎么回事。因为Win98已前的打印机的纸张定义可以直接设置Width和Height,但是从Window2000开始，打印机的纸张定义就不能这样设置了，只能是先定义页形(Paper)，然后选择页形。这个载微软的MSDN上有说明的。

在打印前调用以下函数
procedure SetPaperSize(X, Y: Integer);
// 这段代码绝对可用。单位是0.1mm
// A4时 Printer.Pagewidth:=1440；  A5时 Printer.Pagewidth:=1049；
// B5时 Printer.Pagewidth:=1290；  16K时 Printer.Pagewidth:=1035；
// lq1600宽行打印机这个值宽度最大为42cm左右, 长度大约2m。
{Question:
How can I change the papersize of my print job?
Answer:
One way to change printer settings at the start
of a print job is to change the printer's devicemode
structure.
See: TDEVMODE in the Delphi 1.02 help file or DEVMODE
in the Delphi 2.01 help file for other settings you can
change (providing the print driver supports the change).
The following example, contains code to change the papersize and
the paper bin that is uses:}
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;
  Printer.PrinterIndex := Printer.PrinterIndex;
  //以下开始打印
end;
note:
此句:
{Set the bin to use}
      pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
      pDMode^.dmDefaultSource := DMBIN_MANUAL;
是设定进纸为手动（DMBIN_MANUAL）

调试易

delphi中怎样让Printer打印前自动选中A3的纸张？？

解决方案 »