Печать определенных строк Stringgrid

@ilyxaaa · Регистрация: 27.02.2014

Студворк — интернет-сервис помощи студентам

Добрый день.
Подскажите как вывести на печать только те строки, у которых strngrd20.RowHeights[i]:=24;
Спасибо

Сейчас печатаю так, но печатается все

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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;

@qwertehok · 16.03.2016, 13:17

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

strngrd20

только не говорите что это то о чем я подумал

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

только те строки, у которых strngrd20.RowHeights[i]:=24;

пройтись по гриду, перенести нужные строки в другой грид и его распечатать

@ilyxaaa · 16.03.2016, 13:22 **[ТС]**

qwertehok, Это имя стрингрида

@CheshireesCat · 16.03.2016, 13:22

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

только не говорите что это то о чем я подумал

походу именно оно

ilyxaaa, примерно так:

Delphi
1
2
3
4
5
for i:=0 to strngrd20.RowCount-1 do
  if strngrd20.RowHeights[i]=24 then 
    begin
  //  твои действия
    end;

@ilyxaaa · 16.03.2016, 13:23 **[ТС]**

qwertehok, А без переноса в другой грид, нету вариантов?

@CheshireesCat · 16.03.2016, 13:23

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

Это имя стрингрида

20 Карл! зачем тебе 20 стринггридов Карл? Карлр!

@ilyxaaa · 16.03.2016, 13:38 **[ТС]**

CheshireesCat, не подходит вариант выше

@qwertehok · 16.03.2016, 13:39

не подходит почему?

@ilyxaaa · 16.03.2016, 13:41 **[ТС]**

qwertehok, сделал вот так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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
      if sGrid.RowHeights[TmpI]=24 then
      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
  end;
  Printer.EndDoc;
end;

и он печатает пустые строки, и где то в середине нужные

@qwertehok · 16.03.2016, 13:45

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

и он печатает пустые строки, и где то в середине нужные

сам так напрограммировал, а человека ругаешь

у тебя же позиция строк основывается на TmpI, а эта переменная увеличивается в каждой итерации

@ilyxaaa · 16.03.2016, 13:52 **[ТС]**

qwertehok, я взял готовый код в просторах. Вот его хочу изменить под мои требования

@qwertehok · 16.03.2016, 13:56

ilyxaaa, меняй, только подумай сначала

@ilyxaaa · 16.03.2016, 13:58 **[ТС]**

qwertehok, не подскажешь как сделать, не как не могу догнать

@qwertehok · 16.03.2016, 14:00

ilyxaaa, а подумать не хочешь?

@ilyxaaa · 16.03.2016, 14:00 **[ТС]**

Все разобрался

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
procedure PrintGrid(sGrid: TStringGrid; sTitle: string);
var
  X1, X2: Integer;
  Y1, Y2: Integer;
  TmpI,s: 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 := [];
    s:=0;
    for TmpI := 1 to sGrid.RowCount - 1 do
    begin
 
      if sGrid.RowHeights[TmpI]=24 then
      begin
        s:=s+1;
          Y1 := 150 * s + 300;
      Y2 := 150 * (s + 1) + 300;
      TR := Rect(X1, Y1, X2 - 30, Y2);
      Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[F, s]);
    end; end
  end;
  Printer.EndDoc;
end;

Всем спасибо

@qwertehok · 16.03.2016, 14:07

спасибо, ты спас мою веру в человечество

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	16.03.2016, 13:22 [ТС]
	qwertehok, Это имя стрингрида 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	16.03.2016, 13:23 [ТС]
	qwertehok, А без переноса в другой грид, нету вариантов? 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	16.03.2016, 13:38 [ТС]
	CheshireesCat, не подходит вариант выше 0

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,207 Записей в блоге: 3
	16.03.2016, 13:39
	не подходит почему? 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	16.03.2016, 13:52 [ТС]
	qwertehok, я взял готовый код в просторах. Вот его хочу изменить под мои требования 0

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,207 Записей в блоге: 3
	16.03.2016, 13:56
	ilyxaaa, меняй, только подумай сначала 0

@ilyxaaa 1 / 1 / 2 Регистрация: 27.02.2014 Сообщений: 280
	16.03.2016, 13:58 [ТС]
	qwertehok, не подскажешь как сделать, не как не могу догнать 0

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,207 Записей в блоге: 3
	16.03.2016, 14:00
	ilyxaaa, а подумать не хочешь? 0

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,207 Записей в блоге: 3
	16.03.2016, 14:07
	спасибо, ты спас мою веру в человечество 0