Jump to content
Sign in to follow this  
startuga

[Resolvido] Imprimir ListView

Recommended Posts

startuga

Boas,

Gostaria de saber se é possível imprimir a informação contida dentro de uma listview, e se sim como poderei fazê-lo...

Share this post


Link to post
Share on other sites
startuga

http://img15.imageshack.us/img15/8258/sysx.jpg

O que queria mesmo era imprimir(para impressora) a informação contida na listsview das "informações".

Já pesquisei na net mas não encontrei informação consistente :c

Em 26/05/2013 às 16:45, bioshock disse:

Fantástico obrigado, acho que esse link solucionou o meu problema!

Obrigado

Share this post


Link to post
Share on other sites
startuga

Uma ajudinha!!

Não consigo incrementar esta parte do código ao projeto

Propriedades = DataGridView1.CurrentRow.Cells(1).Value
    Valor = DataGridView1.CurrentRow.Cells(2).Value

eu altero o código para

Propriedades = lsvProperties.Columns.Item

Mas depois não consigo concluir de modo a funcionar :c

Share this post


Link to post
Share on other sites
bioshock

Que cena já viste? Vou perguntar à minha bola de cristal que erro é que te está a dar.

Share this post


Link to post
Share on other sites
startuga

Que cena já viste? Vou perguntar à minha bola de cristal que erro é que te está a dar.

*Este é o erro

Error 3 Overload resolution failed because no accessible 'Item' accepts this number of arguments.

Share this post


Link to post
Share on other sites
bioshock

Tens de lhe dar um índice de coluna.

Propriedades = lsvProperties.Columns.Item(0).Text

Share this post


Link to post
Share on other sites
startuga

Obrigado pessoal acabei agora mesmo de conseguir resolver este problema, ficando o mesmo a funcionar com o seguinte código:

   Private Propriedades, Valor As String
   Private Sub RelatorioInfo()
    Dim printIt As New PrintDocument
    Dim printPreview As New PrintPreviewDialog
    printPreview.Document = printIt
    AddHandler printIt.PrintPage, AddressOf printIt_PrintPage
    Clipboard.SetImage(My.Resources.Phoenix_logo)
    printPreview.ShowDialog()
   End Sub
   Private Sub printIt_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
    Dim i, x As Integer
    Dim item As ListViewItem
    x = 0
    e.Graphics.DrawImage(Clipboard.GetImage, 150, -100, 550, 500)
    Dim rect As New Rectangle(0, 400, 900, 800)
    e.Graphics.DrawRectangle(Pens.Gray, rect)
    e.Graphics.DrawString("Propriedades: ", New Font("Verdana", 16, FontStyle.Bold), Brushes.Black, 40, 350)
    e.Graphics.DrawString("Valor: ", New Font("Verdana", 16, FontStyle.Bold), Brushes.Black, 417, 350)
    For i = 0 To lsvProperties.Items.Count - 1
	    item = lsvProperties.Items(i)
	    If Not String.IsNullOrEmpty(item.SubItems(1).Text) Then
		    e.Graphics.DrawString(item.SubItems(0).Text, New Font("Verdana", 11, FontStyle.Regular), Brushes.Black, 117, 402 + (x * 20))
		    e.Graphics.DrawString(item.SubItems(1).Text, New Font("Verdana", 11, FontStyle.Regular), Brushes.Black, 417, 402 + (x * 20))
		    x = x + 1
	    End If
    Next
    'data do doc
    e.Graphics.DrawString(Date.Now, New Font("Verdana", 16, FontStyle.Bold), Brushes.Black, 525, 1120)
   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    RelatorioInfo()
   End Sub
End Class

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.