Question

I have a vb .net program that exports information to certain fields of an excel workbook using named ranges. One of the named ranges is a notes section that gets cut off (not visible nor gets printed) if it extends beyond a page break. I am looking for a way to dynamically create new named ranges to accommodate all of the notes’ text.

Some other information:

• The named range is a merged cell from A2:L36 with text wrap enabled

• Column A is 31 units wide

• Columns B through L are 8.38 units wide

• All of the rows are 15.75 units high

• I do NOT want to print blank pages, resize the font, disable text wrapping, have the end user do any re-formatting, nor change the size of the cells as I have tried these approaches without success.

• Using Excel 2007

HELP PLEASE!

Thanx in advance!
~8th

---

forgive my ignorance, I’m still a n00b

Answer 1

Thanks again Lunatik for your response. I was able to come up with an acceptable workaround before I saw your most recent post. This is not the most graceful solution but it is most suitable for what I was trying to accomplish. I hope this can be of some use to someone else in the future.

Dim sNotes As String = g_strProgram.sNotes
Dim iStartIndex, iEndIndex As Integer
Dim iRow As Integer = 0

If (sNotes.Length > 0) Then
   g_frmMain.ucAdditionalInfo.txtNotes.Text = sNotes
   Do
      iRow += 1
      oWorkSheet.Range("A" & iRow + 1 & ":L" & iRow + 1).Merge()
      iStartIndex = IIf(iRow = 1, 0, iEndIndex + 1)

      If (g_frmMain.ucAdditionalInfo.txtNotes.GetFirstCharIndexFromLine(iRow) >= 0) Then
         iEndIndex = g_frmMain.ucAdditionalInfo.txtNotes.GetFirstCharIndexFromLine(iRow) - 1
      Else
         iEndIndex = g_strProgram.sNotes.Length - 1
      End If

      oWorkSheet.Range("ProgramNote").Offset(iRow, 0).Value = g_strProgram.sNotes.Substring(iStartIndex, iEndIndex - iStartIndex).TrimEnd(vbCrLf)
   Loop While (iEndIndex < g_strProgram.sNotes.Length - 1)
Else
       oWorkSheet.Visible = Excel.XlSheetVisibility.xlSheetHidden
End If

If anyone out there reading this needs clarification with any of the aforementioned, do not hesitate to post a question here!
~8th