Delphi中如何控制打印方向,纸张大小等

 

 如何在程序里控制打印纸张大小(A3,A4)和打印方向?不想打开设置窗口     
  ---------------------------------------------------------------      
     
  Uses     Printer;      
  .........      
  procedure     TForm1.Button1Click(Sender:     TObject);      
  var      
        ADevice,     ADriver,     APort:     array[0..255]     of     Char;      
        DeviceHandle:     THandle;      
        DevMode:     PDeviceMode;      
  begin      
                //初始化打印机      
                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      
                        Raise     Exception.Create('不能初始化打印机!')      
                else      
                        DevMode     :=     GlobalLock(DeviceHandle);      
                if     DeviceHandle     <>     0     then      
                begin      
                        with     DevMode^     do      
                        begin      
                                dmFields     :=     dmFields     or     DM_ORIENTATION;      
                                //在下面这里设置打印方向      
                                dmOrientation     :=     DMORIENT_LANDSCAPE;     //DMORIENT_PORTRAIT      
                                dmPaperSize     :=     DMPAPER_A3;                  
                                Printer.SetPrinter(ADevice,     ADriver,     APort,     DeviceHandle);      
                                GlobalUnLock(DeviceHandle);      
                        end;      
                end;      
     
                PrinterSetupDialog1.Execute;     //验证一下设置是否成功了      
  end;      
     
   
  *************   
    printer.pagewidth是只读属性      
  ---------------------------------------------------------------      
     
  参考这个       
      
var        

 hDMode:     THandle;       
 PDMode:     PDEVMODE;       
Printer.GetPrinter(Device,     Driver,     Port,     hDMode);      
     
        if     hDMode     <>     0     then      
        begin      
                pDMode     :=     GlobalLock(hDMode);      
                if     pDMode     <>     nil     then      
                begin      
                                pDMode^.dmFields     :=     DM_PAPERSIZE     or     DM_PAPERWIDTH     or     DM_PAPERLENGTH;      
                                pDMode^.dmPaperSize     :=     DMPAPER_USER;      
                                pDMode^.dmPaperWidth     :=     APaperWidth;      
                                pDMode^.dmPaperLength     :=     APaperHeight;      
     
                                pDMode^.dmFields:=pDMode^.dmFields     or     DM_ORIENTATION;      
                                pDMode^.DMORIENTATION:=     Direct;      
                end;      
        end;      
  //打印机设置的纸张大小      
  ---------------------------------------------------------------       
   
  在执行打印前调用以下函数:      
  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。      
  //改变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;      
                        {设定纸张来源}      
                        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;     

你可能感兴趣的:(Delphi)