Funkcja drukujÄ…ca tabelÄ™ StringGrid

[Pitek]

Używam funkcji podanej w tutku na stronie Barona. Jednak moja tabela jest zbyt duża i nie mieści sie na stronie A4 i funkcja ta prawie wszędzie wstawia "...".
Moje pytanie : Jak zmodyfikować kod tej funkcji aby drukowanie odbywało się podobnie jak to jest w Excelu. Czyli drukowanie normalnych rozmiarów z dostosowaniem tylko szerokościowym przy druku poziomym (bo tylko tak będzie drukowana ta tabela) a obcięta reszta tabeli drukowała by się na następnej stronie.I tak np. mając 2 kartki z dostosowaniem szerokościowym w druku poziomym otrzymałbym 2 pełne kartki i 2 resztki brakujące do poprzednich.

[Cyfrowy Baron]

Trzeba opracować nowy algorytm. Jak zapewne zauważyłeś, za przeniesienie drukowania na nową stronę odpowiedzialny jest ten mechanizm:

Kod: Zaznacz cały

for(int i = 0; i < Grid->RowCount; i++)
{
.....
h = h + Grid->RowHeights[i] + ratio_y;
if((h + Grid->RowHeights[i] + (ratio_y * 4)) * ratio_x >= y)
{
  h = 0;
  Printer()->Canvas->TextOut(0, y - (ratio_y * 3), "strona " + (String)Printer()->PageNumber);
  Printer()->NewPage();
}

Czyli ten fragment kodu musisz wyrzucić:

Kod: Zaznacz cały

String tekst = Grid->Cells[j][i];
lab_1:
if(Printer()->Canvas->TextWidth(tekst) + ratio_y >= Grid->ColWidths[j] * ratio_x)
{
  tekst = tekst.SubString(1, tekst.Length() - 4) + "...";
  goto lab_1;
}

Potrzebujesz też dodatkowej pętli do obliczania szerokości kolumn, a potem postępujesz podobnie jak z wierszami, tylko zamiast Grid->RowHeights[i] potrzebujesz Grid->ColWidths[j].
Przeanalizuj kod i dodaj mechanizm przerzucający na nową stronę, w przypadku gdy kolumny nie mieszczą się na jednej stronie, wzoruj się przy tym na mechanizmie odnoszącym się do wysokości (Heights) tabeli.

[Pitek]

Bardzo dziękuję za całą pomoc udzieloną mi w temacie mojego programu !
Dałem rade z tą funckją.