COMO IMPRIMIR LISTBOX

FERATK 15/08/2010 00:57:12
#350292
pessoal estou com um sério problema.
Eu tenho uma listbox com varios resultados.
E quero imprimi-la.
Eu sei apanas como imprimir um textbox:
Para um textbox eu faço assim:
Private Sub PrintText(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
ev.Graphics.DrawString(TextBox1.Text, New Font([Ô]Arial[Ô], 11, FontStyle.Regular), Brushes.Black, 10, 10)
ev.HasMorePages = False
End Sub

E no botão onde eu clicko para imprimir eu coloco isso
Try

Dim PrintDoc As New PrintDocument
AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
PrintDoc.Print()
Catch ex As Exception
MessageBox.Show([Ô]A impressão Falhou[Ô], ex.ToString())
End Try

Mas como eu faço para imprimir um listbox
TECLA 15/08/2010 09:31:11
#350293 Resposta escolhida
Tente assim:

Dim y As Integer = 10
For i = 0 To ListBox1.Items.Count - 1
      e.Graphics.DrawString(ListBox1.Items(i).ToString(), New Font([Ô]Arial[Ô], 10, FontStyle.Regular), Brushes.Black, 10, y)
      y += 15
Next
FERATK 15/08/2010 21:45:50
#350329
Cara não deu certo!!!
Como eu faço, existe outro código
ALEXPASSOS 16/08/2010 21:02:32
#350428
Eu faço assim

Try

Application.DoEvents()

dSet.Tables([Ô]bancocons[Ô]).Clear()

frmImprimir.Crystal.Refresh()
frmImprimir.Crystal.RefreshReport()

vContador = ListCons.Items.Count

If vContador = 0 Then
MsgBox([Ô]Faça a consulta antes de imprimir[Ô], MsgBoxStyle.Information, [Ô]Atenção[Ô])
Exit Sub
End If

Dim vData As String
Dim vConta As String
Dim vBanco As String
Dim vHistorico As String
Dim vValor As String
Dim vCD As String
Dim vSituacao As String

Dim varLinhaList As Integer
Dim varLinha As Integer = 0
Dim varCol As Integer = 1
Dim contador As Integer = 0

varLinhaList = vContador * 8 [ô]número de colunas que vc tem no listview
contador += varLinhaList - 3

For i As Integer = 0 To varLinhaList

If varCol = 2 Then
vConta = ListCons.Items(varLinha).SubItems.Item(2).Text.ToString
End If

If varCol = 3 Then
vBanco = ListCons.Items(varLinha).SubItems.Item(3).Text.ToString
End If

If varCol = 4 Then
vValor = ListCons.Items(varLinha).SubItems.Item(4).Text.ToString
End If

If varCol = 5 Then
vCD = ListCons.Items(varLinha).SubItems.Item(5).Text.ToString
End If

If varCol = 6 Then
vSituacao = ListCons.Items(varLinha).SubItems.Item(6).Text.ToString
End If

If varCol = 7 Then
vHistorico = ListCons.Items(varLinha).SubItems.Item(7).Text.ToString
End If

If varCol = 7 Then

[ô]Aqui a rotina para adicionar a rotina de inclusão no dataset para imprimir
Dim dr As Data.bancoconsRow = dSet.bancocons.NewbancoconsRow
dr.tipocons = vTipoCons
dr.consulta = vPeriodo
dr.data = vData
dr.conta = vConta
dr.banco = vBanco
dr.historico = vHistorico
dr.valor = vValor
dr.cd = vCD
dr.situacao = vSituacao

dSet.bancocons.Rows.Add(dr)

varCol = 1
varLinha += 1

If varLinha = vContador Then Exit For

If i = contador Then Exit For
End If

If varCol = 1 Then
vData = ListCons.Items(varLinha).SubItems.Item(1).Text.ToString
End If
varCol += 1

Next i

[ô]Chama relatório no crystal reports
Dim rptNormal As New relatBancoCons
rptNormal.SetDataSource(dSet)
frmImprimir.MdiParent = frmPrincipal
frmImprimir.Show()
frmImprimir.Crystal.ReportSource = rptNormal

Application.DoEvents()

Catch ex As Exception
MsgBox([Ô]Erro: [Ô] & Err.Number & vbNewLine & Err.Description, MsgBoxStyle.Critical, [Ô]Atenção[Ô])
End Try
TECLA 16/08/2010 21:04:47
#350429
Citação:

:
Cara não deu certo!!!
Como eu faço, existe outro código


Qual o erro que deu?
Aqui funcionou.
FERATK 16/08/2010 21:58:14
#350436
o erro esta no ee.Graphics.DrawString Diz o seguinte erro:
[Ô]Graphics não é membro de [ô]Sistem.EventArgs[Ô]
Sei lá como eu resolvo.

Obs.: Inseri este código em um botão.
TECLA 17/08/2010 13:27:35
#350518
Veja se te ajuda!

FERATK 17/08/2010 13:48:11
#350521
TECLA, deu tudo certo obrigado por tudo
Tópico encerrado , respostas não são mais permitidas
Voltar