Hallo,
iemand die me kan helpen aub
ik heb een code voor een listview te printen
maar het probleem is dat hij de icons niet mee print.
En heb dit nog nooit moeten testen tot nu
ik kan vanalles toevoegen zoals een kleur enzo maar zou niet weten hoe ik deze moet oplossen.
please anyone?
Dummy1912
iemand die me kan helpen aub
ik heb een code voor een listview te printen
maar het probleem is dat hij de icons niet mee print.
En heb dit nog nooit moeten testen tot nu

ik kan vanalles toevoegen zoals een kleur enzo maar zou niet weten hoe ik deze moet oplossen.
please anyone?
Code:
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
'Headings
currentY = 100
For Each c In lstView.Columns
maxY = Math.Max(maxY, g.MeasureString(c.Text, f, c.Width).Height)
colLefts(idx) = l
colWidths(idx) = c.Width
lr = New RectangleF(colLefts(idx), currentY, colWidths(idx), maxY)
If lr.Width > 0 Then g.DrawString(c.Text, f, b, lr)
l += c.Width
idx += 1
Next
currentY += maxY + gap
g.DrawLine(Pens.Black, 0, currentY, e.PageBounds.Width, currentY)
currentY += gap
'Rows
iCount = lstView.Items.Count - 1
l = 0
maxY = 0
idx = 0
For Each lvsi In lstView.Items(ii).SubItems
maxY = Math.Max(maxY, g.MeasureString(lvsi.Text, f, colWidths(idx)).Height)
lr = New RectangleF(colLefts(idx), currentY, colWidths(idx), maxY)
If lr.Width > 0 Then g.DrawString(lvsi.Text, f, b, lr)
idx += 1
Next
currentY += maxY + gap
Next
Dummy1912
Bijlagen
Laatst bewerkt: