вывести данные StringGrid на печать

[Driver_09]

тут тоже есть нечто похожее: http://www.delphiexpert.ru/view_lesson.php?id=96
только бы это под стринггрид сделать

[SERG1980]

Сообщение от Driver_09

SERG1980, а как это сделать?
напишите код, пожалуйста, или скажите как)
Я просто пока не совсем все основные компоненты знаю, и как ими пользоваться((

Для начала скачайте и установите (устанавливается как обычная прога).
В демках есть пример печати грида и всего остального. Я недавно выкладывал документацию по fastreport, поисчите поиском. Для вас скорее подойдёт метод печати через Cross объект (описан как в демке так и в документации)

[tools]

Ой, извиняюсь, невнимательно прочитал вопрос, нужен именно StringGrid, тогда не подойдет ehlib, там только dbgrideh'ы печатать можно.
Вот попробуй этот код (взял из DRKB):

uses 
Printers; 


procedure PrintGrid(sGrid: TStringGrid; sTitle: string); 

var 
X1, X2: Integer; 
Y1, Y2: Integer; 
TmpI: Integer; 
F: Integer; 
TR: TRect; 

begin 
Printer.Title := sTitle; 
Printer.BeginDoc; 
Printer.Canvas.Pen.Color  := 0; 
Printer.Canvas.Font.Name := 'Times New Roman'; 
Printer.Canvas.Font.Size  := 12; 
Printer.Canvas.Font.Style := [fsBold, fsUnderline]; 
Printer.Canvas.TextOut(0, 100, Printer.Title); 
for F := 1 to sGrid.ColCount - 1 do 
begin 
   X1 := 0; 
   for TmpI := 1 to (F - 1) do 
     X1 := X1 + 5 * (sGrid.ColWidths[TmpI]); 
   Y1 := 300; 
   X2 := 0; 
   for TmpI := 1 to F do 
     X2 := X2 + 5 * (sGrid.ColWidths[TmpI]); 
   Y2 := 450; 
   TR := Rect(X1, Y1, X2 - 30, Y2); 
   Printer.Canvas.Font.Style := [fsBold]; 
   Printer.Canvas.Font.Size := 7; 
   Printer.Canvas.TextRect(TR, X1 + 50, 350, sGrid.Cells[F, 0]); 
   Printer.Canvas.Font.Style := []; 
   for TmpI := 1 to sGrid.RowCount - 1 do 
   begin 
     Y1 := 150 * TmpI + 300; 
     Y2 := 150 * (TmpI + 1) + 300; 
     TR := Rect(X1, Y1, X2 - 30, Y2); 
     Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[F, TmpI]); 
   end; 
end; 
Printer.EndDoc; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
PrintGrid(StringGrid1, 'Доход_2НДФЛ'); 
end;

[Driver_09]

tools, спасибо огромное))
В принципе в коде я разобрался, только поясните для меня несколько строк:
TR: TRect; (это наверное так же как и TForm1?)
Printer.Canvas.Font.Style := [fsBold, fsUnderline];(конкретно что после присваивания)
Printer.Canvas.TextOut(0, 100, Printer.Title); (а тут числа что обозначают, они в принципе во всех строках)

[tools]

Printer.Canvas.Font.Style := [fsBold, fsUnderline] - это стиль шрифта (fsBold - полужирный, fsItalic - курсив, fsUnderline - подчеркнутый, fsStrikeOut - перечеркнутый, их можно смешивать, поэтому и задается в виде множества). Все это свойства класса TFont.

Printer.Canvas.TextOut(0, 100, Printer.Title)- первые два числа - это координаты X и Y, т.е. верхний левый угол положения надписи. Именно с этой точки будет начинаться надпись.

TRect - это класс для задания координат прямоугольной области вывода наших ячеек.

Bentli, отдельную тему создавай и, естественно, не в этом разделе (здесь Delphi, а не Basic).

[Bentli]

подскажите пожалуйста ,как добавить информацию в конец файла последовательного доступа в qbasic

Bentli, либо создай свою тему в правильном разделе, либо я твой пост удалю по той причине, что он не имеет отношения к данной теме!

[Driver_09]

а где строчка которая отделяет столбцы?
то есть если увеличить шрифт, то не влазит вся инфа в этот столбец?

[tools]

Сейчас попробую у себя на Delphi сделать. По результатам отпишусь здесь

[Driver_09]

tools, будьте добры))
у меня просто как раз на принтере краска кончилась, нет уже возможности проверить)

[tools]

Эх, забыл совсем про эту тему. Но, если еще не поздно, то вот я переделал код, опробуйте такой вариант:

procedure PrintGrid(sGrid: TStringGrid; sTitle: string);

var
X1, X2: Integer;
Y1, Y2: Integer;
TmpI: Integer;
F, i: Integer;
TR: TRect;
max_string:string;

begin
with Printer do
begin
    Title := sTitle;
    BeginDoc;
    with Canvas do
    begin
      Pen.Color  := 0;
      Font.Name := 'Times New Roman';
      Font.Size  := 12;
      Font.Style := [fsBold, fsUnderline];
      TextOut(0, 100, Printer.Title);
      Font.Size := 9;
    end;
end;

for F := 1 to sGrid.ColCount - 1 do
begin
  max_string:= sGrid.Cells[F,1];
   for i:=1 to sGrid.RowCount-1 do
      if Length(sGrid.Cells[F,i]) > Length(max_string)  then
          max_string:= sGrid.Cells[f,i];
   X1 := 0;
   for TmpI := 1 to (F - 1) do
     X1 := X1 + Trunc(Printer.Canvas.TextWidth(max_string)*1.2);
   Y1 := 300;
   X2 := 0;
   for TmpI := 1 to F do
     X2 := X2 + Trunc(Printer.Canvas.TextWidth(max_string)*1.2);
   Y2 := 450;
   TR := Rect(X1, Y1, X2 - 30, Y2);
   with Printer.Canvas do
   begin
       Font.Style := [fsBold];
       TextRect(TR, X1 + 50, 350, sGrid.Cells[F, 0]);
       Font.Style := [];
   end;
   for TmpI := 1 to sGrid.RowCount - 1 do 
   begin
      Y1 := 150 * TmpI + 300;
      Y2 := 150 * (TmpI + 1) + 300;
      TR := Rect(X1, Y1, X2 -30, Y2);
     Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[F, TmpI]); 
   end; 
end; 
Printer.EndDoc; 
end; 


procedure TForm1.button1Click(Sender: TObject);
begin
 PrintGrid(StringGrid1, 'Доход_2НДФЛ');
end;