Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

startuga

[Resolvido] Imprimir ListView

Mensagens Recomendadas

startuga

Boas,

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.