PrintPreviewcontrol

Code:

---

Imports System.Data.OleDb

Public Class Form1
    Dim con As OleDbConnection

    Dim cmd As OleDbCommand

    Dim da As OleDbDataAdapter

    Dim dt As New DataTable

    Private _titleFont As Font

    Private _detailFont As Font

    Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
     
        _titleFont = New Font(FontFamily.GenericSerif, 16, FontStyle.Bold, GraphicsUnit.Point)

        _detailFont = New Font(FontFamily.GenericSerif, 12, FontStyle.Bold, GraphicsUnit.Point)

    End Sub


    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
   
        Dim xPos As Single = 120

        Dim yPos As Single = 120

        Dim i As Integer = 0

        Dim y As Integer = 0

        Dim myArray() As Integer = {0, 0, 0, 0}

        For i = 0 To dt.Rows.Count - 1

            For y = 0 To dt.Columns.Count - 1

                If myArray(y) < e.Graphics.MeasureString(dt.Rows(i).Item(y).ToString, _detailFont).Width + 150 Then

                    myArray(y) = e.Graphics.MeasureString(dt.Rows(i).Item(y).ToString, _detailFont).Width + 150

                End If

            Next

        Next

        Dim counter As Integer = 0

        For Each c As DataColumn In dt.Columns

            e.Graphics.DrawString(c.ColumnName, _titleFont, Brushes.Black, xPos, yPos)

            xPos += myArray(counter)

            counter += 1

        Next

        xPos = 120

        yPos += 50

        For i = 0 To dt.Rows.Count - 1

            For y = 0 To dt.Columns.Count - 1

                e.Graphics.DrawString(dt.Rows(i).Item(y).ToString, _detailFont, Brushes.Black, xPos, yPos)

                xPos += myArray(y)

            Next

            xPos = 120

            yPos += 50

        Next

    End Sub

      Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        con = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=db1.mdb")

        con.Open()

        cmd = New OleDbCommand("Select * from Table1", con)

        da = New OleDbDataAdapter(cmd)

        da.Fill(dt)

        PrintPreviewControl1.Document = PrintDocument1

    End Sub

    Private Sub PrintToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripButton.Click

        If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            PrintDocument1.Print()


        End If

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        PageSetupDialog1.PageSettings = PrintDocument1.DefaultPageSettings

        If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings

        Else

            Exit Sub

        End If

    End Sub

End Class

---

i did this code and i am having problem with the tootstripbutton1 click....

i clicked the button,then a pagesetupdialog appears,then i changed from portrait to landscape and clicked ok but the preview of the document does not changes in the PringPreiewcontrol from landscape to Portrait........

any ideas?

how to solve this problem then?

Please help......:(

Please stop bumping your thread. If have nothing new to add then you shouldn't be posting.

Just so you know, I've never printed anything from a .NET app. All I know about printing is pretty much what I've read in the documentation.

So, you call Print on your PrintDocument and the preview is displayed in your PrintPreviewControl. If you change some printing parameters, the preview won't spontaneously update. You have to call Print on the PrintDocument again so that a new preview is drawn. When you do your printing, i.e. in the PrintPage event handler, if you want the printing to look different depending on the page orientation then obviously you would have to determine what the page orientation is in the PrintPage event handler. You will then have to write the code in the PrintPage event handler to make use of that information.

So, go to the MSDN documentation and read about the PrintPage event. Take note of what type the 'e' parameter is and follow the link to read the documentation for that. Once you know what members it has you can work out from that how to get the information you need, following more links and reading more documentation if necessary. I don't know the exact solution you need, i.e. the exact code to get your printed output the way you want, but if I had to do this, that's exactly what I'd do. I would make use of the information I found and employ a certain amount of trial and error until I found the final solution.

You might also check out Merrion's intro to .NET printing in the VB.NET CodeBank forum. He's the printing expert around here. It won't provide you with a final solution but I'm sure it contains useful information.

i think i should wirte some code in the querypagesettings event tht is raised by the printdocument1.print() since this event is used to set the orientation (landscape or portrait), the paper size, paper source, and so on but i cant write the exact code to do the needful.......any help?

From what I can see, the idea of the QueryPageSettings event is to allow you to change the page settings from the document default for the following page. That's not what you want. You want the same page settings for the entire document. Whether or not you change the page settings in the QueryPageSettings event handler, you still have to read those page settings in the PrintPage event handler. That's where you do the printing so that's where you have to read the page settings to determine how to do the printing.

In the PrintPage event handler, the 'e' parameter is type PrintPageEventArgs. That object has a PageBounds property to give you the bounds of the printed page, which will tell you how wide to print a line and how many lines to print. It also has a PageSettings property, from which you can get ALL the page settings you need to determine how to print.

as you told me,

i had a look at this:

http://msdn.microsoft.com/en-us/libr...s(VS.100).aspx

but i cant get ant sample example of the PageBounds property on which i can work on with:(

You are handling the PrintPage event to print a page. As with all events, the 'e' parameter of the event handler contains the information for the event. Now we go straight to MSDN and the documentation for the PrintPage event. The documentation says that the event's type is PrintPageEventHandler, so we click the link and go to the documentation for that type. That documentation says that the 'e' parameter is type PrintPageEventArgs, so we click the link and read the documentation for that type. The very first line of the Remarks section of that topic says:

Quote:

---

The MarginBounds property retrieves the rectangular area that represents the portion of the page between the margins.

---

Doesn't that sound useful? Isn't that basically what you want: to know where you can and should print? So, we click the link and read the documentation for that property. That topic says that the MarginBounds property is type Rectangle. If you don't know how to use a Rectangle then you click the link and read that documentation too. As you can see, using the MSDN documentation is simple and systematic.

So, you now know exactly how to get a Rectangle that describes the printable area within the PrintPage event handler. As you know from reading the documentation, the Rectangle structure has Left and Top properties, which give you a reference point from which to offset your printing. It also Width and Height properties, which give you an area outside of which you must not print. From there it's simple mathematics.

i can use the rectangle property.....
i did this last night in some other code:

Code:

---

e.Graphics.DrawRectangle(Pens.Black, 50, 50, 750, 1000)

---

but again the problem is the same..in this case also i am using the absolute positioning jmc....

the left and top is (50,50) which is ok but the width and height portion will differ if i change the change the page settings from portrait to landscape.......

so simply i cant use the integers to draw a border or something like that in the printing page.....

i was thinking that if the page width(either landscape or portrait) is known then i would subtract 5 from all sides of the page to get the work done......

Quote:

---

Originally Posted by HowTo

i was thinking that if the page width(either landscape or portrait) is known

---

The width of the page IS known:

Quote:

---

Originally Posted by jmcilhinney

So, you now know exactly how to get a Rectangle that describes the printable area within the PrintPage event handler. As you know from reading the documentation, the Rectangle structure has Left and Top properties, which give you a reference point from which to offset your printing. It also has Width and Height properties, which give you an area outside of which you must not print. From there it's simple mathematics.

---

when i started this printing code then it was very interesting but day by day it is becoming very frustrating to me ....even i cant find the expert merrion online.....

in the third and fourth parameters i am setting the width and the height but how can i get the width and height of the page on which i will be printing:confused:

You seem to have disregarded posts #8 and #11. I don't see anywhere that you've used the MarginBounds and some maths. You say that the problem is that you're using absolute values. You're correct. I've told you what you need to do but you are yet to do it. Here's a simple example:

1. Create a new WinForms application project.
2. Add two Buttons to the form.
3. Change the Text of Button1 to "Portrait".
4. Change the Text of Button2 to "Landscape".
5. Add a PrintDocument and a PrintPreviewDialog to the form.
6. Assign the PrintDocument to the PrintPreviewDialog's Document property.
7. Add the following code:

Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Print in portrait.
    Me.PrintDocument1.DefaultPageSettings.Landscape = False

    'Display a preview.
    Me.PrintPreviewDialog1.ShowDialog()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    'Print in landscape.
    Me.PrintDocument1.DefaultPageSettings.Landscape = True

    'Display a preview.
    Me.PrintPreviewDialog1.ShowDialog()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, _
                                    ByVal e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    Dim text As String = "Hello World"

    'Get the printable area.
    Dim bounds As Rectangle = e.MarginBounds

    'Get the size of the text.
    Dim textSize As SizeF = e.Graphics.MeasureString(text, Me.Font, bounds.Width)

    'Calculate the top left corner of the text for it to be centred.
    Dim textX As Single = bounds.Left + (bounds.Width - textSize.Width) / 2
    Dim textY As Single = bounds.Top + (bounds.Height - textSize.Height) / 2

    'Print the text.
    e.Graphics.DrawString(text, Me.Font, Brushes.Black, textX, textY)
End Sub

---

8. Run the project.
9. Click the Portrait button and observe the result.
10. Click the Landscape button and observe the result.

As you can see, you don't have to care about whether you're printing in Portrait or Landscape in the PrintPage event handler. All you have to do is what I said: get the printable area from the e.MarginBounds property and then apply some mathematics to decide where to print relative to that.

that works well even in this code when i used the printpreviewdailog earlier:

Code:

---

Imports System.Data.OleDb

Public Class Form1

    Dim con As OleDbConnection

    Dim cmd As OleDbCommand

    Dim da As OleDbDataAdapter

    Private _titleFont As Font

    Private _detailFont As Font

    Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.BeginPrint
        'set the data pointers (if any) to the start position
        'initialise any page number variables you might have

        _titleFont = New Font(FontFamily.GenericSerif, 16, FontStyle.Bold, GraphicsUnit.Point)

        _detailFont = New Font(FontFamily.GenericSerif, 12, FontStyle.Bold, GraphicsUnit.Point)

    End Sub

    Private Sub PrintDocument1_EndPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles PrintDocument1.EndPrint
        'You can use this event handler to clear up any objects that you have created for the print job
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        'All of the actual printing on a page is done in the PrintPage event handler
        'This event is raised for each page that is printed
        'the drawing and text commands that you code in this event handler control what is printed on the page itself

        e.Graphics.DrawLine(Pens.Black, 50, 50, 800, 50)

        e.Graphics.DrawLine(Pens.Black, 50, 50, 50, 1050)

        e.Graphics.DrawLine(Pens.Black, 50, 1050, 800, 1050)

        e.Graphics.DrawLine(Pens.Black, 800, 50, 800, 1050)

        e.Graphics.DrawLine(Pens.Black, 100, 110, 750, 110)

        e.Graphics.DrawLine(Pens.Black, 100, 150, 750, 150)

        e.Graphics.DrawLine(Pens.Black, 100, 1000, 750, 1000)

        Dim xPos As Single = 120

        Dim yPos As Single = 120

        Dim i As Integer = 0

        Dim y As Integer = 0

        Dim myArray() As Integer = {0, 0, 0, 0}

        For i = 0 To dt.Rows.Count - 1

            For y = 0 To dt.Columns.Count - 1

                If myArray(y) < e.Graphics.MeasureString(dt.Rows(i).Item(y).ToString, _detailFont).Width + 150 Then

                    myArray(y) = e.Graphics.MeasureString(dt.Rows(i).Item(y).ToString, _detailFont).Width + 150

                End If

            Next

        Next

        Dim counter As Integer = 0

        For Each c As DataColumn In dt.Columns

            e.Graphics.DrawString(c.ColumnName, _titleFont, Brushes.Black, xPos, yPos)

            xPos += myArray(counter)

            counter += 1

        Next

        xPos = 120

        yPos += 50

        For i = 0 To dt.Rows.Count - 1

            For y = 0 To dt.Columns.Count - 1

                e.Graphics.DrawString(dt.Rows(i).Item(y).ToString, _detailFont, Brushes.Black, xPos, yPos)

                xPos += myArray(y)

            Next

            xPos = 120

            yPos += 50

        Next

    End Sub

    'if there are more pages to print, set the e.HasMorePages property to True
    'and the QueryPageSettings and PrintPage events will be triggered again
    'the same event handler is used, so if you want to print different pages
    'you need to keep track of which page you are on and code your PrintPage event handler accordingly

    Dim dt As New DataTable
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            PrintDocument1.Print()

        End If

    End Sub

    Private Sub PrintDocument1_QueryPageSettings(ByVal sender As Object, ByVal e As System.Drawing.Printing.QueryPageSettingsEventArgs) Handles PrintDocument1.QueryPageSettings
        'raised before each and every page that is printed
        'use this event to set any page settings for the next page to be printed
        'set the orientation (landscape or portrait), the paper size, paper source, and so on

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        PrintPreviewDialog1.Document = PrintDocument1

        PrintPreviewDialog1.ShowDialog()

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        con = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=db1.mdb")

        con.Open()

        cmd = New OleDbCommand("Select * from Table1", con)

        da = New OleDbDataAdapter(cmd)

        da.Fill(dt)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        PageSetupDialog1.PageSettings = PrintDocument1.DefaultPageSettings

        If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings

        Else

            Exit Sub

        End If

    End Sub

End Class

---

but when i used the printpreviewcontrol then i am having the problem:
the code is shown in #1

I've never used a PrintPreviewControl myself but I don't really see what difference it would make. The PrintPreviewDialog itself contains a PrintPreviewControl and simply passes through the PrintDocument.

I just re-did my demo from post #14 in VS 2005 with a PrintPreviewControl on my own form and it worked exactly as expected.

ok i solved the portrait/landscape problem by this code:

Code:

---

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        PageSetupDialog1.PageSettings = PrintDocument1.DefaultPageSettings

        If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings

            Me.PrintPreviewControl1.InvalidatePreview()

        Else

            Exit Sub

        End If

---

i was missing this line in my code:

Code:

---

Me.PrintPreviewControl1.InvalidatePreview()

---

here i used the printpreviewdialog and it works ok

Now after having a close look at your code,i am also able to understand the logic of how to remove absolute positioning and implement the positioning using the marginbounds and pagebounds....very soon i am going to implement it in my code :) All it needs is some simple calculations......if you would not have helped me so far then i would have been dieing today :) thanks a lot jmc.....

one request...please have a look at the project i uploaded in my #19 or #20....there is an printDialog associated with it;now if the user wants to print more than one pages at a time then how to do this?

I had a look at merrions submission and i found that i need to set e.HasMorePages to True to raise the PrintPage event again but i cant implement it properly in my above codes......Please help

i tried with this code in the printpage event:

Code:

---

If e.HasMorePages = True Then
            PrintDocument1.Print()
        End If

---

is it ok?

Quote:

---

Originally Posted by HowTo

i tried with this code in the printpage event:

Code:

---

If e.HasMorePages = True Then
            PrintDocument1.Print()
        End If

---

is it ok?

---

All you need to do is set e.HasMorePages to True. If you do then the PrintPage event will be automatically raised again and you'll print another page. As soon as a PrintPage event handler completes with e.HasMorePages set to False, which is the default value, the current print run stops, i.e. PrintPage is not raised again.

Obviously, if you're printing multiple pages on multiple PrintPage events, you need a way to determine what page you're supposed to be printing inside the PrintPage event handler. For that you'd use either a Static or member variable to store some sort of counter. It might contain a page number, record number or whatever's appropriate for your scenario.

i need something like this :

Code:

---

Static counter As Integer = 1

        If counter = 1 Then

            'Print the string

            e.HasMorePages = True

            Exit Sub

        End If

        If counter = 2 Then

          'Print the string

            e.HasMorePages = False

        End If

---

but this will unfortunately print only two pages:(
I cant understand how to set the upper limit of the counter since the user will select at the runtime how many pages he want to print in the PrintDialog......
Please help

If the user enters the number of pages into the PrintDialog then that's where you get the number of pages from. EVERYTHING you need can either be obtained from the 'e' parameter or the 'sender' parameter, which is the PrintDocument itself. ALL the printer settings and page settings are in there.

Code:

---

Static counter As Integer = 1
        If counter <= e.HasMorePages Then
          counter+=1
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If

---

is it ok?

Quote:

---

Originally Posted by HowTo

Code:

---

Static counter As Integer = 1
        If counter <= e.HasMorePages Then
          counter+=1
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If

---

is it ok?

---

How can 'counter' be less than e.HasMorePages? Look at you own code. e.HasMorePages is either True or False, so how can you compare it to a page number?

ya the code is not correct...

Code:

---

msgbox(e.hasmorepages)

---

returns false :(
then with whom to compare the counter...
please help me out of this

Quote:

---

Originally Posted by jmcilhinney

EVERYTHING you need can either be obtained from the 'e' parameter or the 'sender' parameter, which is the PrintDocument itself. ALL the printer settings and page settings are in there.

---

If you look into those objects you'll find the information you need. The fourth paragraph in post #4 explains how to do that. The reason I'm pushing you to find it for yourself is that, if I just give you the answer this time, you'll just come back and ask the next time too. If you look for yourself you will learn how to find information for yourself, which you can use next time, and you will most likely find other information that will be useful either now or in the future. That is EXACTLY how I learned when I was a beginner. If I can do it, you can do it.

i really feel sorry jmc that you have been helping me throughout but i cant help myself but i tried:(
i had a look at this:
http://msdn.microsoft.com/en-us/libr...morepages.aspx
and a few more msdn sites but i cant help myself:o
even in this:
Attachment 77135
i cant see a way wherefrom i can get the number of pages set by the user in the print dialog:(
please help

Nowhere did I say that you should be able to simply get it property value from the 'e' parameter. I said that all the information you need is stored in the 'sender', i.e. the PrintDocument, or 'e', i.e. the PrintPageEventArgs. I've explained how you can use the documentation. Here's what you need to do:

1. Opened the documentation for the PrintDocument class.
2. Gone to the member listing topic.
3. Read the description of each member.
4. Clicked the link for any member that looked like it might have been relevant.
5. Read the documentation for that member.
6. Clicked the link for that member's type.
7. Read the documentation for that type.
8. Clicked the link for the type's member listing.
9. Etc.

If you had done that you would have found what you were looking for. I said that you should explore the PrintDocument type. It has a PrinterSettings property. Start there.

ok first i looked this:
http://msdn.microsoft.com/en-us/libr...nt(VS.71).aspx

then i looked this:


http://msdn.microsoft.com/en-us/libr...gs(VS.71).aspx

but still i cant find anything.......

please done take it the other way but i am not able to find data in the msdn since it is very huge and i get confused with it most of the time about which way to go.....

you find them because you have got the experience of working with you but i can bet that for guys like me they cant find out the data for themselves in the msdn and hence they love vbforums.......

i apologise sir

please help me out of it

Looking at your post, I see that the second link is for the PrinterSettings class. Did you check what members the PrinterSettings class has? You can't just look at a class overview and expect to know everything about that class. You have to look at the member listing to see what properties and methods it has. I said that back in post #4:

Quote:

---

Once you know what members it has you can work out from that how to get the information you need

---

i had a look at this sites:
http://msdn.microsoft.com/en-us/libr...rs(VS.71).aspx
http://msdn.microsoft.com/en-us/libr...ge(VS.71).aspx

i am very close to getting the work done but i am not getting any sample code which i can work on with:mad:

Why do you need sample code? It's simple maths. You've got two numbers: the page count and the last page number. You simply set HasMorePages to True or False depending on whether one is greater than the other or not.

That said, I'm not convinced you even need the page range. I haven't really done any .NET printing so I'm not sure but, it seems to me, it may be the case that you simply send everything and then it's up to the printer to decide which pages to actually create a hard copy of. I'm not sure but that's somehting to consider. It shouldn't be hard to test to find out for sure. If my theory is correct then the only consideration for setting HasMorePages is whether or not you have more data to print.

Code:

---

Static a As Integer = 1
        Dim m As Integer = PrintDocument1.PrinterSettings.ToPage

        If a <= m Then

            e.HasMorePages = True

            a += 1

            Exit Sub

        Else

            e.HasMorePages = False

        End If

---

is it ok :(

How about, instead of meaningless variable names like 'a' and 'm' you use meaningful names like currentPageNumber and lastPageNumber? You can then look at something like this yourself:

Code:

---

If currentPageNumber <= lastPageNumber Then
    e.HasMorePages = True

---

and it should be fairly obvious that that doesn't make sense. If the current page number is equal to the last page number then we just printed the last page, so are there any more pages to print?

i quit.....
please help me with the code so that i can learn something at least by having a look at the code like i did the last time by having a look at the code that you did with the portrait/landscape
please help

cant yet get the solution:(

It is elementary logic. If the current page is the last page then there are no more pages, otherwise there are more pages. I think that you're quite capable of putting that logic into code. You almost had it earlier but, again, you didn't actually read the words I posted.

Quote:

---

If the current page number is equal to the last page number then we just printed the last page, so are there any more pages to print?

---

That is all that was really wrong with your previous code so all you had to do was address that one thing.

Code:

---

Static a As Integer = 1
        Dim m As Integer = PrintDocument1.PrinterSettings.ToPage

        If a = m Then

            e.HasMorePages = False

        Else

            e.HasMorePages = True

            a += 1

            Exit Sub


        End If

---

is it ok:(

sorry again this also did not work:(

Code:

---

Static a As Integer = 1
        Dim m As Integer = PrintDocument1.PrinterSettings.ToPage

        If a > m Then

            e.HasMorePages = True

            a += 1

        Else

            e.HasMorePages = False

        End If

---

this is just getting into an infinite loop :(

Attachment 77136
this line is not working:

Code:

---

Dim m As Integer = PrintDocument1.PrinterSettings.ToPage

---

Code:

---

Static a As Integer = 0

        Dim m As Integer = PrintDocument1.PrinterSettings.Copies

        If a < m Then

            e.HasMorePages = True

            a += 1

        Else

            e.HasMorePages = False

        End If

---

did not work even

please tell jmc

E.g.

vb.net Code:

Imports System.Drawing.Printing
 
Public Class Form1
 
    Private Const MIN_PAGE_NUMBER As Integer = 1
    Private Const MAX_PAGE_NUMBER As Integer = 10
 
    Private pageNumber As Integer
    Private copyNumber As Short
 
    Private Sub Form1_Load(ByVal sender As Object, _
                           ByVal e As EventArgs) Handles MyBase.Load
        With Me.PrintDocument1.PrinterSettings
            .MinimumPage = MIN_PAGE_NUMBER
            .MaximumPage = MAX_PAGE_NUMBER
 
            .FromPage = MIN_PAGE_NUMBER
            .ToPage = MAX_PAGE_NUMBER
        End With
 
        Me.PrintDialog1.AllowSomePages = True
    End Sub
 
    Private Sub Button1_Click(ByVal sender As Object, _
                              ByVal e As EventArgs) Handles Button1.Click
        If Me.PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.PrintPreviewDialog1.ShowDialog()
        End If
    End Sub
 
    Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, _
                                          ByVal e As PrintEventArgs) Handles PrintDocument1.BeginPrint
        Me.pageNumber = 1
        Me.copyNumber = 1
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, _
                                         ByVal e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim settings As PrinterSettings = Me.PrintDocument1.PrinterSettings
 
        If settings.PrintRange = PrintRange.SomePages Then
            Do Until Me.pageNumber >= settings.FromPage
                Me.pageNumber += 1
            Loop
        End If
 
        e.Graphics.DrawString(String.Format("Copy {0}, Page {1}", _
                                            Me.copyNumber, _
                                            Me.pageNumber), _
                              Me.Font, _
                              Brushes.Black, _
                              e.MarginBounds.Location)
 
        Me.pageNumber += 1
 
        If (settings.PrintRange = PrintRange.AllPages AndAlso Me.pageNumber > MAX_PAGE_NUMBER) OrElse _
           (settings.PrintRange = PrintRange.SomePages AndAlso Me.pageNumber > settings.ToPage) Then
            Me.pageNumber = 1
            Me.copyNumber += 1S
        End If
 
        e.HasMorePages = (Me.copyNumber <= settings.Copies)
    End Sub
 
End Class

Thanks for the help jmc,I had a close look at the #46 but i cant understand how to implement this in my program:confused:
i am uploading my program,can you please help me out of it?
Attachment 77165

any help?

:( :(