delphi 源码

表格比较复杂，用报表控件打印 设计 很复杂，还好表格有打印功能，很方便

procedure Print(vgrid: TAdvStringGrid; vmsg: string);
begin
  //打印
  vgrid.Multilinecells := True;
  vgrid.Options := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing,goRangeSelect,goColSizing,goRowSizing];
  vgrid.WordWrap := true;
  vgrid.AutoSizeColumns(true,1) ;
  vgrid.AutoSizeRows(true,1) ;
  vgrid.PrintSettings.NoAutoSize := True;        //自动换行
  vgrid.PrintSettings.NoAutoSizeRow := True;   //自动换行
  vgrid.PrintSettings.ColumnSpacing := 1;
  vgrid.PrintSettings.RowSpacing := 1;
  vgrid.PrintSettings.Title := ppTopCenter; //标题位置
  vgrid.PrintSettings.TitleSpacing := 10;
  vgrid.PrintSettings.LeftSize := 1;
  vgrid.PrintSettings.RightSize := 1;
  vgrid.PrintSettings.HeaderSize := 18;
  vgrid.PrintSettings.TitleText := vmsg;  //标题内容
  vgrid.PrintSettings.PageNr := ppBottomCenter; //页码位置
  vgrid.PrintSettings.FitToPage := TFitToPage.fpgrow;   //适应页面类型
  if rg_la.Checked  then
  vgrid.PrintSettings.Orientation := TPrinterOrientation.poLandscape    //打印方向
  else
  vgrid.PrintSettings.Orientation := TPrinterOrientation.poPortrait;
  vgrid.print;
  // 还原
//  vgrid.AutoSizeColumns(false,1) ;
//  vgrid.AutoSizeRows(false,1) ;
//  vgrid.Multilinecells := false;
//  vgrid.Options := [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine,goRangeSelect];

end;