关于fast report 打印中不能使用自定以纸张的问题(300分)

用D7和fast-report3.0 开发的程序中。需要随意改变纸张的长度。
打印预览一切正常，可是打印机确总是打印A4纸张的幅面后就停止打印啦
各位高手，请帮帮忙？

检查一下打印机设置...

这个应该没有问题，我反复测试了好长时间！

什么类型的打印机？

你可以先在添加打印機空白區域右鍵單擊打印服務器處自定義紙張大小保存起來，這樣的話，你在打印時就可以實現你要用的紙張了，或者把它設為默認輸出紙張大小。
我們開發的系統就是這樣來實現的。
一直穩定。

delphisuccess 你好！听你的意思是先添加一个自定义的纸张类型，可是我的纸张每次都要改变的呀，那又应该怎么处理呀！

你只要把自定义纸张类型添加进去就可以了，多种类型都可以的， 如果你在WIN98/ME上就不用这样改了

我们明白你的意思，可是能不能用程序控制，添加删除纸张类型呀，这样就方便多了，不用我事先天啦！

打印机服务器默认的就是A4。
报表里面的纸张要和实际打印机服务器中的纸张对应起来。不然打印时是找不到打印纸张的，就使用默认的纸张了。
如果你随意修改纸张的同时，你也需要更改打印服务器中纸张的长度，这个没有办法的。

不能用地delphi 程序控制服务器纸张的大小吗，我觉的应该可以吧！但是不知道具体的代码怎么实现，求各位高手帮帮我吧！急用呀

下面是收藏的一些代码，参考一下：
//取得字符的高度
function CharHeight: Word;
var
　Metrics: TTextMetric;
begin
　GetTextMetrics(Printer.Canvas.Handle, Metrics);
　Result := Metrics.tmHeight;
end;

file://取得字符的平均宽度
function AvgCharWidth: Word;
var
　Metrics: TTextMetric;
begin
　GetTextMetrics(Printer.Canvas.Handle, Metrics);
　Result := Metrics.tmAveCharWidth;
end;

file://取得纸张的物理尺寸---单位：点
function GetPhicalPaper: TPoint;
var
　PageSize : TPoint;
begin
　file://PageSize.X/;
纸张物理宽度-单位:点
　file://PageSize.Y/;
纸张物理高度-单位:点
　Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,@PageSize);
　Result := PageSize;
end;

file://2/.取得纸张的逻辑宽度--可打印区域
file://取得纸张的逻辑尺寸
function PaperLogicSize: TPoint;
var
　APoint: TPoint;
begin
　APoint.X := Printer.PageWidth;
　APoint.Y := Printer.PageHeight;
　Result := APoint;
end;

file://纸张水平对垂直方向的纵横比例
function HVLogincRatio: Extended;
var
　AP: TPoint;
begin
　Ap := PaperLogicSize;
　Result := Ap.y/Ap.X;
end;

file://取得纸张的横向偏移量-单位：点
function GetOffSetX: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetX);
end;

file://取得纸张的纵向偏移量-单位：点
function GetOffSetY: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetY);
end;

file://毫米单位转换为英寸单位
function MmToInch(Length: Extended): Extended;
begin
　Result := Length/25.4;
end;

file://英寸单位转换为毫米单位
function InchToMm(Length: Extended): Extended;
begin
　Result := Length*25.4;
end;

file://取得水平方向每英寸打印机的点数
function HPointsPerInch: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
end;

file://取得纵向方向每英寸打印机的光栅数
function VPointsPerInch: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
end;

file://横向点单位转换为毫米单位
function XPointToMm(Pos: Integer): Extended;
begin
　Result := Pos*25.4/HPointsPerInch;
end;

file://纵向点单位转换为毫米单位
function YPointToMm(Pos: Integer): Extended;
begin
　Result := Pos*25.4/VPointsPerInch;
end;

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;

file://在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串
procedure PrintText(X, Y: Extended;
Txt: string;
ConfigFileName: string;
FontSize: Integer=12);
var
　OrX, OrY: Extended;
　Px, Py: Integer;
　AP: TPoint;
　Fn: TStrings;
　FileName: string;
　OffSetX, OffSetY: Integer;
begin
file://打开配置文件，读出横向和纵向偏移量
try
　Fn := TStringList.Create;
　FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;
　if FileExists(FileName) then
　begin
　　Fn.LoadFromFile(FileName);
　　file://横向偏移量
　　OffSetX := StrToInt(Fn.Values['X']);
　　file://纵向偏移量
　　OffSetY := StrToInt(Fn.Values['Y']);
　end
else
begin
　file://如果没有配置文件，则生成
　Fn.Values['X'] := '0';
　Fn.Values['Y'] := '0';
　Fn.SaveToFile(FileName);
end;
finally
　Fn.Free;
end;
X := X + OffSetX;
Y := Y + OffSetY;
Px := Round(Round(X * HPointsPerInch * 10000/25.4) / 10000);
Py := Round(Round(Y * VPointsPerInch * 10000/25.4) / 10000);
Py := Py - GetOffSetY;
file://因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
Px := Px + 2 * AvgCharWidth;
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := FontSize;
file://Printer.Canvas.Font.Color/ := clGreen;
Printer.Canvas.TextOut(Px, Py, Txt);
end;

看看其中的设置纸张的高度和宽度。可以动态根据需求设置纸张

控制打印机服务器属性中的纸张类型时，比如添加、删除什么的。windows有没有API可以调用呀！请告诉我，有重谢！

Api函数列表
--与打印相关
Api函数名 函数说明 适用范围
W3.x W95 NT
AddPrinterConnection 为当前用户建立与打印机的联系 否 是 是
StartPagePrinter 开始打印机 否 是 是
StartDoc 开始打印作业 是 是 是
StartDocPrinter 开始打印作业 否 是 是
AddPrintProvidor 加入一个打印机支持器 否 是 是
AddForm 加入一个打印机窗体 否 是 是
AddPort 加入一个打印机端口 否 是 是
AddMonitor 加入一个打印机管理器 否 是 是
ShellExecute 打开或打印指定文件 否 是 是
ClosePrinter 关闭打开的打印机 否 是 是
WritePrinter 向打印机输出数据 否 是 是
AddPrinter 在打印机服务器上建立一个打印机 否 是 是
SetAbortProc 设备打印作业的放弃函数 否 是 是
SetPrinter 设置打印机信息 否 是 是
SetPrinterData 设置打印机配置 否 是 是
SetJob 设置打印作业信息 否 是 是
ResetPrinter 设置打印数据类型和设备模式值 否 是 是
DeletePrinterConnection 删除与打印机的连接 否 是 是
DeletePrintProcessor 删除打印机处理器 否 是 是
DeletePrinterDriver 删除打印机驱动程序 否 是 是
DeletePrinter 删除打印机服务器上的打印机 否 是 是
DeleteMonitor 删除打印机监视器 否 是 是
DeletePrintProvidor 删除打印机提供者 否 是 是
DeleteForm 删除打印机窗体层差 否 是 是
AbortPrinter 删除打印机缓冲文件 否 是 是
DeletePort 删除打印机端口 否 是 是
AddJob 启动一个打印作业 否 是 是
AdvancedDocumentProperties 进行打印机高级设置 否 是 是
PrintDlg 建立打印文本对话框 否 是 是
EnumPrintProcessors 枚举已安装的打印机处理器 否 是 是
EnumPrinterDrivers 枚举已安装的打印机驱动程序 否 是 是
EnumPorts 枚举可用打印机端口 否 是 是
EnumPrintProcessorDatatypes 枚举打印机所支持的数据类型 否 是 是
EnumForms 枚举所支持的打印机窗体 否 是 是
AbortDoc 终止一项打印作业 是 是 是
PrinterProperties 修改打印机属性 否 是 是
AddPrintProcessor 将打印处理器复制到打印机服务器中 否 是 是
AddPrinterDriver 将打印机驱动程序复制到打印机服务器中 否 是 是
PrinterMessageBox 显示打印作业出错信息 否 是 是
ConnectToPrinterDlg 显示浏览对话并连接网络打印机 否 是 是
EndPagePrinter 结束打印页 否 是 是
EndDoc 结束打印作业 是 是 是
EndDocPrinter 结束打印作业 否 是 是
StartPage 准备打印机接收数据 是 是 是
WaitForPrinterChange 监测打印机或打印机服务器变化 否 是 是
GetPrintProcessorDirectory 获取打印机驱动处理器路径 否 是 是
GetPrinterDriver 获取打印机驱动程序信息 否 是 是
GetPrinterDriverDirectory 获取打印机驱动程序路径 否 是 是
GetPrinter 获取打印机信息 否 是 是

zsy146,谢谢！

No thanks
正好有收藏，共享一下而已。

你上面的那段代码，是通用控制打印的吗？可以和fast－report相互使用吗？

你在delphi，根据报表的纸张的大小调节打印服务器的纸张大小。
此代码主要是调节打印服务器纸张的大小的。
之前你需要知道报表的纸张的大小。

接受答案了.

谢谢啦