Print Preview, lomljenje strana

Code:

Do Until rsSveOce.EOF
                nSO = nSO + 15

                e.Graphics.DrawString(rsSveOce("NazivOblasti").Value & " - (Ocena :   " & rsSveOce("Ocena").Value & ") - Datum:  " & rsSveOce("DatumOcene").Value, fonSveOce, Brushes.Black, 20, 450 + nSO, New StringFormat)
                rsSveOce.MoveNext()




            Loop

            If Not (rsSveOce.EOF) Then
                e.HasMorePages = True
            Else
                e.HasMorePages = False
            End If

Code:
 Do Until rsSveOce.EOF


                If nSO > pdOcene.DefaultPageSettings.Bounds.Y Then
                    nSO = nSO + 15



                    e.Graphics.DrawString(rsSveOce("NazivOblasti").Value & " - (Ocena :   " & rsSveOce("Ocena").Value & ") - Datum:  " & rsSveOce("DatumOcene").Value, fonSveOce, Brushes.Black, 20, 400 + nSO, New StringFormat)

                    rsSveOce.MoveNext()

                    e.HasMorePages = True
                End If


            Loop
                    
                    e.HasMorePages =False

Code:

Dim rsSveOce as Recordset ' valjda je ovako


Private Sub Print_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
  Dim Y as int
  Y = 0
  e.HasMorePages =False
  
  Do Until rsSveOce.EOF
    
    If Y >= pdOcene.DefaultPageSettings.Bounds.Y Then
      e.HasMorePages = True
      Exit Loop ' ili mozda moze return, zaboravih
    End If

    e.Graphics.DrawString(rsSveOce("NazivOblasti").Value , fonSveOce, Brushes.Black, 20, Y, New StringFormat)

    rsSveOce.MoveNext()
     Y = Y + 15

  Loop

End Sub

Code:
  Dim Y As Integer
            Y = 0

            e.HasMorePages = False

            Do Until rsSveOce.EOF



                If Y >= pdOcene.DefaultPageSettings.Bounds.Y Then
                    e.HasMorePages = True

                    Return
                End If




                e.Graphics.DrawString(rsSveOce("NazivOblasti").Value & " - (Ocena :   " & rsSveOce("Ocena").Value & ") - Datum:  " & rsSveOce("DatumOcene").Value, fonSveOce, Brushes.Black, 20, 400 + Y, New StringFormat)
                rsSveOce.MoveNext()
                Y = Y + 15


            Loop

Code:
    Private Sub pdSveOcene_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles   pdSveOcene.PrintPage
        Try

        Dim i As Single = 0
            Dim b As Integer


            For b = 1 To 3000

                e.HasMorePages = False

                If i >= pdSveOcene.DefaultPageSettings.Bounds.Y Then

                    e.HasMorePages = True


                End If

                e.Graphics.DrawString(b.ToString, Me.Font, Brushes.Black, 20, i)

                i = i + 15


            Next b

end sub


Help!!!

Code:

                If (400+Y) >= pdOcene.DefaultPageSettings.Bounds.Y Then
                    e.HasMorePages = True

                    Return
                End If

Code:


Dim b As Integer

Private Sub pdSveOcene_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles   pdSveOcene.PrintPage

        Dim i As Single = 0

        e.HasMorePages = False

         while b < 3000


                If i >= pdSveOcene.DefaultPageSettings.Bounds.Y Then
                    e.HasMorePages = True
                    Return
                End If

                e.Graphics.DrawString(b.ToString, Me.Font, Brushes.Black, 20, i)

                i = i + 15
                b = b + 1
          Loop

end sub

Code:
    Dim BrojRedova As Integer
    Dim pp As New PrintPreviewDialog
    Private WithEvents pd As New Printing.PrintDocument

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        BrojRedova = 100

        pp.Document = pd
        pp.ShowDialog(Me)
    End Sub

    Private Sub pd_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pd.PrintPage
        Dim y As Integer = 10
        Do While y < e.Graphics.VisibleClipBounds.Height And BrojRedova > 0
            e.Graphics.DrawString(BrojRedova.ToString, Me.Font, Brushes.Black, 10, y)

            BrojRedova -= 1
            y += 50
        Loop
        If BrojRedova > 0 Then
            e.HasMorePages = True
        End If
    End Sub

Code:


using System;
using System.Drawing;
using System.Windows.Forms;
using System.Drawing.Printing;

namespace WindowsApplication1
{
    static class Print
    {
        [STAThread]
        static void Main()
        {
            Application.Run(new MyPrintPreview());
        }
      
    }

    public class MyPrintPreview: Form
    {
        private PrintPreviewControl preview;
        private int ukupno = 0;

        public MyPrintPreview()
        {
            preview = new PrintPreviewControl();
            preview.Dock = DockStyle.Fill;
            this.Controls.Add(preview);
            this.WindowState = FormWindowState.Maximized;
            preview.Document = new MyPrintDocument();
            preview.KeyPress += new KeyPressEventHandler(preview_KeyPress);
            preview.Document.PrintPage += new PrintPageEventHandler(Document_PrintPage);
            preview.Document.EndPrint += new PrintEventHandler(Document_EndPrint);
        }

        private void Document_PrintPage(object sender, PrintPageEventArgs e)
        {
            ukupno++;
        }

        private void Document_EndPrint(object sender, PrintEventArgs e)
        {
            PrikaziBrojStrane();
        }

        private void preview_KeyPress(object sender, KeyPressEventArgs e)
        {
            if(preview.StartPage == ukupno - 1)
                preview.StartPage = 0;
            else
                preview.StartPage++;
            PrikaziBrojStrane();
        }

        private void PrikaziBrojStrane()
        {
            int strana = preview.StartPage + 1;
            this.Text = "Strana: " + strana + "/" + ukupno;
        }


    }

    public class MyPrintDocument: PrintDocument
    {
        public MyPrintDocument()
        {
            this.PrintPage += new PrintPageEventHandler(MyPrintDocument_PrintPage);
        }

        private int counter = 0;

        private void MyPrintDocument_PrintPage(object sender, PrintPageEventArgs e)
        {
            int y = 0;
            e.HasMorePages = false;
            while(counter < 200) {
                if(y >= e.PageBounds.Bottom) {
                    e.HasMorePages = true;
                    return;
                }
                e.Graphics.DrawString(counter.ToString(), SystemFonts.MessageBoxFont, Brushes.Black, 20, y);
                y += 15;
                counter++;
            }
        }

    }

}