How to change the position of the datagridview?

Question

0.00/5 (No votes)

See more:

hello, im working on a datagridview print, my code is working but not how i want it to be, i want the position of the datagridview at the bottom of the paper but the code below print it above the paper, please help me. I'm using Visual Studio 2008

VB

' Code for printing DataGridView
Dim leftMargin As Integer = 70
Dim position As Integer = leftMargin
Dim yPosition As Integer
Dim height As Integer = poDG.ColumnHeadersHeight / 2
yPosition = 0

position = leftMargin
yPosition = poDG.ColumnHeadersHeight / 2
For Each dr As DataGridViewColumn In poDG.Columns
    Dim totalWidth As Double = dr.Width
    e.Graphics.FillRectangle(New SolidBrush(Color.LightGray), New Rectangle(position, yPosition, totalWidth, height))
    e.Graphics.DrawRectangle(Pens.Black, New Rectangle(position, yPosition, totalWidth, height))
    e.Graphics.DrawString(dr.HeaderText, New Font("Verdana", 10, FontStyle.Bold), Brushes.Black, position, yPosition)
    position = position + totalWidth
Next

For Each dr As DataGridViewRow In poDG.Rows
    position = leftMargin
    yPosition = yPosition + poDG.ColumnHeadersHeight / 2
    For Each dc As DataGridViewCell In dr.Cells
        Dim totalWidth As Double = dc.OwningColumn.Width
        e.Graphics.FillRectangle(New SolidBrush(Color.White), New Rectangle(position, yPosition, totalWidth, height))
        e.Graphics.DrawRectangle(Pens.Black, New Rectangle(position, yPosition, dc.OwningColumn.Width, height))
        e.Graphics.DrawString(dc.Value, New Font("Verdana", 8, FontStyle.Regular), Brushes.Black, position, yPosition)
        position = position + totalWidth
    Next
Next

Posted 28-Jul-11 19:32pm

Joanne0005

Updated 28-Jul-11 19:35pm

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Joanne0005 · Accepted Answer · 2011-08-04T16:21:00

nevermind i solved my own question, i'll post the code for future references, hope this helps...

VB

' Code for printing DataGridView
        Dim leftMargin As Integer = 30
        Dim position As Integer = leftMargin
        Dim yPosition As Integer = 329  ' Change value to change the y-position of the DataGridView
        Dim height As Integer = poDG.ColumnHeadersHeight / 2

        position = leftMargin
        yPosition = yPosition + poDG.ColumnHeadersHeight / 2
        For Each dr As DataGridViewColumn In poDG.Columns
            Dim totalWidth As Double = dr.Width
            e.Graphics.FillRectangle(New SolidBrush(Color.White), New Rectangle(position, yPosition, totalWidth, height))
            e.Graphics.DrawRectangle(blackPen, New Rectangle(position, yPosition, totalWidth, height))
            e.Graphics.DrawString(dr.HeaderText, New Font("Times New Roman", 10, FontStyle.Bold Or FontStyle.Italic), Brushes.Black, position, yPosition, fmt)
            position = position + totalWidth
        Next

        For Each dr As DataGridViewRow In poDG.Rows
            position = leftMargin
            yPosition = yPosition + poDG.ColumnHeadersHeight / 2
            For Each dc As DataGridViewCell In dr.Cells
                Dim totalWidth As Double = dc.OwningColumn.Width
                e.Graphics.FillRectangle(New SolidBrush(Color.White), New Rectangle(position, yPosition, totalWidth, height))
                e.Graphics.DrawRectangle(Pens.White, New Rectangle(position, yPosition, dc.OwningColumn.Width, height))
                e.Graphics.DrawString(dc.Value, New Font("Verdana", 8, FontStyle.Regular), Brushes.Black, position, yPosition)
                position = position + totalWidth
            Next
        Next