Καλημέρα,

Θα ήθελα να βρώ ή να φτιάξω μια κλάση ή μια ρουτίνα που να τυπώνει τα περιεχόμενα ενος Listview. Δηλαδή, να υπολίζει αντίστοιχα το μήκος της κάθε στήλης, και αναλογίκα να μου τα τυπώνει στο χαρτί. Επείσης να μου κόβει το περιεχόμενο το κελλιών ώστε να χωράει στο υπολογισμένο κελί για να βγεί σώστα η εκτύπωση. Δεν έχω βρεί κάτι έτοιμο, αλλά σε vb 6 μου είχαι λύση τα χέρια μια αντίστοιχη ρουτίνα. Αν κάποιος γνωρίζει κάτι .... Η αλλίως πρότασεις και ιδέες για να το φτιάξω μόνος μου. ..

Ευχαριστώ!

 

Imports System
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.IO

Public Class PrintDoc

Private printFont As Font
Private streamToPrint As StreamReader

Public Sub PrintFile(ByVal strFileToPrint As String)

Try
streamToPrint = New StreamReader(strFileToPrint)
Try
printFont = New Font("Lucida Console", 9)
Dim pd As PrintDocument = New PrintDocument()

AddHandler pd.PrintPage, New System.Drawing.Printing.PrintPageEventHandler(AddressOf Me.pd_PrintPage)
pd.Print()
Finally
streamToPrint.Close()
End Try

Catch ex As Exception
MessageBox.Show("An error occurred printing the file - " + ex.Message)
End Try

End Sub

Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)

Dim lpp As Single = 0
Dim yPos As Single = 0
Dim count As Integer = 0
Dim leftMargin As Single = 30
Dim topMargin As Single = 60
Dim line As String

lpp = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)

line = streamToPrint.ReadLine()
While (count < lpp And line <> Nothing)

yPos = topMargin + (count * printFont.GetHeight(ev.Graphics))

ev.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, yPos, New StringFormat())

count = count + 1

If (count < lpp) Then
line = streamToPrint.ReadLine()
End If

End While

If (line <> Nothing) Then
ev.HasMorePages = True
Else
ev.HasMorePages = False
End If

End Sub

End Class

---

Things go better with rock...

Ευχαριστώ θα το δοκιμάσω και θα ενημερώσω....

Μάλλον είναι ιδέα για να λυθεί γιατί δεν έχει σχέση με ListView... Μάλλον δεν υπάρχει κάτι έτοιμο ...

Δημιούργησε μία καινούργια κλάση και επικόλλησε τον κώδικα που σου έστειλα στην αρχή μετά χρησιμοποιώντας αυτήν την κλάση και των κώδικα που σου έγγραφα, λογικά θα μπορείς να εκτυπώνεις ListViews εγώ τουλάχιστον μπόρεσα…

Dim objPrint As New PrintDoc

FileOpen(1, "TEMPFILE.TXT", OpenMode.Output)

for n = 0 to (myListView.items.count - 1)
WriteLine(1, myListview.items(n))
next

FileClose(1)

objPrint.PrintFile("TEMPFILE.TXT")

---

Things go better with rock...