Example
The following example returns the last row and column that contains data and sets the scroll bars to only scroll through that data.
C++
CWnd::OnCreate()
{
// Set the scroll bars to only scroll
// through limited rows and columns
m_Spread1.SetScrollBarShowMax(FALSE);
// Add text to sheet
m_Spread1.SetCol(1);
m_Spread1.SetCol2(2);
m_Spread1.SetRow(1);
m_Spread1.SetRow2(2);
m_Spread1.SetClip("North\tSouth\rEast\tWest");
}
CWnd::OnBtnClick()
{
long rowcount, colcount;
// Return the last row that contains data
rowcount = m_Spread1.GetDataRowCnt();
// Return the last column that contains data
colcount = m_Spread1.GetDataColCnt();
// Copy the data to the designated cells
m_Spread1.CopyRange(1, 1, colcount, rowcount, colcount + 1, rowcount + 1);
}
Visual Basic
Sub Form_Load()
' Set the scroll bars to only scroll through limited rows and columns
fpSpread1.ScrollBarShowMax = False
' Add text to sheet
fpSpread1.Col = 1
fpSpread1.Col2 = 2
fpSpread1.Row = 1
fpSpread1.Row2 = 2
fpSpread1.Clip = "North" + Chr$(9) + "South" + Chr$(13) + "East" + Chr$(9) + "West"
End Sub
Sub Command1_Click()
Dim rowcount, colcount As Integer
' Return the last row that contains data
rowcount = fpSpread1.DataRowCnt
' Return the last column that contains data
colcount = fpSpread1.DataColCnt
' Copy the data to the designated cells
fpSpread1.CopyRange 1, 1, colcount, rowcount, colcount + 1, rowcount + 1
End Sub