[RESOLVED] Print Preview of LISTVIEW Does NOT match printed Doc

[compgeek1979]

I have a document I am trying to print and in Print Preview and in tghe Printed Doc the 1st colum gets cut off some how.
I have included screen shots.

Print PreviewAttachment 95391


I have set the columns in Listview to Autosize to the cell content but still it cuts off. not sure where to go. Here is my autosize code.

Private Sub btnSortLists_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSortLists.Click


        'PriceMatchStore.Shopping_List.View = View.Details
        'PriceMatchStore.Shopping_List.Columns.AddRange(New ColumnHeader() _
         '                          {New ColumnHeader With {.Name = "Item", .Text = "Item"}, _
          '                          New ColumnHeader With {.Name = "Brand", .Text = "Brand"}, _
           '                         New ColumnHeader With {.Name = "Size", .Text = "Size"}, _
            '                        New ColumnHeader With {.Name = "Coupon", .Text = "Coupon"}, _
             '                       New ColumnHeader With {.Name = "PriceMatch", .Text = "PriceMatch"}})


        PriceMatchStore.StoreList.View = View.Details
        PriceMatchStore.StoreList.Columns.AddRange(New ColumnHeader() _
                                   {New ColumnHeader With {.Name = "Item", .Text = "Item"}, _
                                    New ColumnHeader With {.Name = "Brand", .Text = "Brand"}, _
                                    New ColumnHeader With {.Name = "Size", .Text = "Size"}, _
                                    New ColumnHeader With {.Name = "Price", .Text = "Price"}, _
                                    New ColumnHeader With {.Name = "Coupon", .Text = "Coupon"}})

        For Each m_row As System.Windows.Forms.DataGridViewRow In Me.ShoppingListView.Rows
            If m_row.Cells("clmcmbStore").Value IsNot Nothing Then
                Dim store As String = m_row.Cells("clmcmbStore").Value.ToString
                Dim group As New ListViewGroup(store, store)
                If Not PriceMatchStore.StoreList.Groups.Cast(Of ListViewGroup).Any(Function(lvg) lvg.Name = store) Then
                    PriceMatchStore.StoreList.Groups.Add(group)
                End If

                Dim item As String = m_row.Cells("clmItem").Value.ToString
                Dim brand As String = m_row.Cells("clmBrand").Value.ToString
                Dim size As String = m_row.Cells("clmQTY").Value.ToString
                Dim price As String = m_row.Cells("clmPrice").Value.ToString
                Dim coupon As String = m_row.Cells("clmCoupon").Value.ToString

                Dim lvItem As New ListViewItem(New String() {item, brand, size, price, coupon})
                PriceMatchStore.StoreList.Items.Add(lvItem)
                PriceMatchStore.StoreList.Groups.Cast(Of ListViewGroup).First(Function(lvg) lvg.Name = store).Items.Add(lvItem)
                PriceMatchStore.StoreList.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
                PriceMatchStore.StoreList.AutoResizeColumn(4, ColumnHeaderAutoResizeStyle.HeaderSize)

            End If

            'If m_row.Cells("clmItem").Value IsNot Nothing Then

                'Dim item As String = m_row.Cells("clmItem").Value.ToString
                'Dim brand As String = m_row.Cells("clmBrand").Value.ToString
                'Dim size As String = m_row.Cells("clmQTY").Value.ToString
                'Dim coupon As String = m_row.Cells("clmCoupon").Value.ToString
                'Dim pricematch As String = m_row.Cells("clmPriceMatch").Value.ToString

                'Dim lvItem As New ListViewItem(New String() {item, brand, size, coupon, pricematch})
                'PriceMatchStore.Shopping_List.Items.Add(lvItem)
               ' PriceMatchStore.Shopping_List.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
                'PriceMatchStore.Shopping_List.AutoResizeColumn(3, ColumnHeaderAutoResizeStyle.HeaderSize)
               ' PriceMatchStore.Shopping_List.AutoResizeColumn(4, ColumnHeaderAutoResizeStyle.HeaderSize)

            'End If

        Next
        PriceMatchStore.ShowDialog()


    End Sub

I am only trying to print the storelist at this point

[dunfiddlin]

Awkward customer that first column in a ListView in general for some reason. String measurement is off a touch and that gets multiplied in the print routine. So in the listViewPrinter code, make the following change.

Private Sub pd_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pd.PrintPage
        Dim sf As New StringFormat(Drawing.StringFormat.GenericTypographic)
' comment out the following
        'sf.Alignment = StringAlignment.Near  
        'sf.LineAlignment = StringAlignment.Center
 
        'sf.Alignment = StringAlignment.Near

[compgeek1979]

That is awesome. That fixed it. But i have one more nitpick that maybe you can help me with . The text seems like it is squeezed to the left of the cell. I know it is left justified, i would just like to see a hair more room on the left side of the words before the cell I have attached another screen shot.
Attachment 95429

[dunfiddlin]

I kinda knew you were gonna say that! I did notice that but didn't have time to explore it any further. I'll take another look at it when the world stops spinning for a minute or two.

[compgeek1979]

I appreciate that. Thank you so much

[dunfiddlin]

Ok. I've made some adjustments to various parts of the class which should resolve all the problems (but probably won't now!) so here's the amended class in full. You'll probably need to adjust the print position a bit to the left (the example position of 50, 50 skews to the right with the amended class).

[compgeek1979]

I am sorry i cant find where the Print position is.

I mean I have this line of code

        Dim printer As New listViewPrinter(StoreList, New Point(20, 10), chkBorder.Checked, StoreList.Groups.Count > 0)
        printer.print()

but this adjust theposition of the entire printout. and no matter where i put it this is what i get
Attachment 95457

As you can see the inner borders are pushed to the right but also the last column is bigger than the width of the column. Im not sure how that changed.

[dunfiddlin]

Drat. Sorry, I did my test with no grid lines. Back to the drawing board then!

[dunfiddlin]

Ok. Think we've cracked it this time.

[compgeek1979]

That Did it thanks.......

ONe more question regarding Printing. How can I add a title at the top of Each list view and Make the title maybe centered witha bigger Font. BEcause When I print it prints both list views and a challanged person may not knwo what list is what......

[dunfiddlin]

Further extension to the Class to include a title, called thus ...

Dim lp As New listViewPrinter(lview, New Point(50, 50), True, True, "Big Bold Title")

If title is "", listview prints as before.

[compgeek1979]

So would that go in here?

Public Class PriceMatchStore


    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Dim lp As New listViewPrinter(StoreList, New Point(50, 50), True, True, "Big Bold Title")
        Dim printer As New listViewPrinter(StoreList, New Point(20, 10), chkBorder.Checked, StoreList.Groups.Count > 0)
        printer.print()
        Dim printer2 As New listViewPrinter(Shopping_List, New Point(20, 10), chkBorder.Checked, Shopping_List.Groups.Count > 0)
        printer2.print()
        Me.Close()
    End Sub

[dunfiddlin]

So would that go in here?

Public Class PriceMatchStore


    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK

        Dim printer As New listViewPrinter(StoreList, New Point(20, 10), chkBorder.Checked, StoreList.Groups.Count > 0,"Title1")
        printer.print()
        Dim printer2 As New listViewPrinter(Shopping_List, New Point(20, 10), chkBorder.Checked, Shopping_List.Groups.Count > 0,"Title2")
        printer2.print()
        Me.Close()
    End Sub

Just like that!

[compgeek1979]

I tried that but when i did i did not have the new ListViewPrinter code in...LOL. My mistake. Hey Thanks again so much for all your help. I have one more major issue to resolve before i can call it done. It is with sorting which i have another thread opened. Feel free to take a look if you think you can assist.

http://www.vbforums.com/showthread.p...ox-But-Exclude