'''' This code is part of Document Solutions for PDF .NET demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports GrapeCity.Documents.PdfImports GrapeCity.Documents.Text
'' This sample shows how to prevent a page break between a paragraph'' and the next one when splitting a TextLayout.'' Splitting of text in this sample is similar to that in PaginatedText,'' see comments in PaginatedText for more info on text handling.Public Class KeepWithNext    Function CreatePDF(ByVal stream As Stream) As Integer        Const NPAR = 40        Dim doc = New GcPdfDocument()        Dim tl = New TextLayout(72) With            {                .FirstLineIndent = 72 / 2,                .MaxWidth = doc.PageSize.Width,                .MaxHeight = doc.PageSize.Height,                .MarginAll = 72            }        tl.DefaultFormat.Font = StandardFonts.Times        tl.DefaultFormat.FontSize = 12        '' Text format for paragraphs kept together with next one:        Dim tf = New TextFormat(tl.DefaultFormat) With            {                .FontSize = tl.DefaultFormat.FontSize + 2,                .FontBold = True            }        '' We add a number of random 'lorem ipsum' paragraphs to this document,        '' adding a 'caption' before each paragraph which is kept together        '' with the following 'lorem ipsum' paragraph:        For i = 0 To NPAR - 1            '' 'Caption' kept together with the next paragraph:            tl.Append("Caption kept together with the next paragraph. No page break after this.", tf)            '' AppendParagraphBreak adds a paragraph break but prevents a page break between the two paragraphs:            tl.AppendParagraphBreak()            '' Random paragraph after 'caption':            tl.Append(Util.LoremIpsum(1))        Next        tl.PerformLayout(True)        '' We force all paragraph lines to stay on the same page,        '' this makes it more obvious that 'caption' and following paragraph        '' are kept on the same page:        Dim tso = New TextSplitOptions(tl) With            {                .KeepParagraphLinesTogether = True            }        '' In a loop, split and render the text:        While (True)            '' 'rest' will accept the text that did not fit:            Dim rest As TextLayout = Nothing            Dim splitResult = tl.Split(tso, rest)            doc.Pages.Add().Graphics.DrawTextLayout(tl, PointF.Empty)            If (splitResult <> SplitResult.Split) Then                Exit While            End If            tl = rest        End While        '' Done:        doc.Save(stream)        Return doc.Pages.Count    End FunctionEnd Class