If n > 1000 Then Exit Sub ' Escapes from an infinite loop if code failsĭim row As Long 'always make a row counting variable a long. If Len(TestCell) = 0 Or Len(TestCell.Offset(-1, 0)) = 0 ThenĪ Before:=rEnd.Offset(1, 0) LastRow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox ExecuteExcel4Macro("Get.Document(50)")ĭim rStart As Range, rEnd As Range, TestCell As Range " page(s) to print", vbInformation, "Pages counted" MsgBox "This sheet will require " & iTotPages & _ Ws.PageSetup.PrintArea = ws.Range("A1:C" & lastRow).Addressĭim iHpBreaks As Integer, iVBreaks As Integer LastRow = ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row ' find the last row with formatting, to be included in print range Set ws = ThisWorkbook.Sheets("Print version") If cell.HasFormula = True And cell.value = "" And = False Then Rows(cell.Row).EntireRow.Hidden = True Set myRange = ThisWorkbook.Sheets("Print version").Range("Print_Area") ThisWorkbook.Sheets("Print version").Select 'ThisWorkbook.Sheets("Print version").PageSetup.CenterHeader = Range("Data!V28").Text ThisWorkbook.Sheets("Print version").PageSetup.CenterHeader = "&""Times New Roman,Bold""&12 " & Range("Data!V28").Text & Chr(13) & Chr(13) & " " & "&""Times New Roman,Normal""&12 " & Range("Data!V30").Text Any ideas of how this issue can be fixed or maybe suggest some other way of approaching this? Number of rows can also be different on every page (depending of how much text there are in wrapped cells on each page). So number 91 is dynamic each time after hiding and wrapping "Sub FitMyTextPlease()" and "Sub HideMyEmptyRows()" and "Sub SetPrintArea()". Then there is not 91 rows but less, depending on the length of the text in wrapped cells. However text must be wrapped to fit to my page vertically. So the problem is: If I set "PgSize = 91" in "Sub FitGroupsToPage()" (that's an amount of rows could be fitted to each page) to 91 and don't wrap my text then everything works fine. If I remove all cells with "Wrap text" command each row have some constant height, let's say 15 so I know amount of rows could be fitted on the page and set my "PgSize = 91" or whatever it is but if I wrap text I don't know how many rows can be fitted on the page. My VBA code below is working fine except for text being wrapped. I want to make conditional page breaks that will read through my Print Area and insert page breaks after each empty row after each paragraph that is not fitting to page compleatly. Some cells with text of column "C" are too long so I am wrapping them with my VBA (.WrapText = True). In "Print version" I have paragraphs of text in column "C". Then I have "Print version" sheet for autoformatting and printing to. I have a form that is changing all the time according to my "Filling form" where user is filling in information.
0 kommentar(er)
