imagem no subitem do listview e imprimir dados do listview em pdf

[rafaelsetti]

Boa tarde,

Duas perguntas para quem puder ajudar.

Tem como inserir imagem no subitem do listview? (tenho imagens do prontuário, do antes e pós tratamentos dos clientes da clinica de podologia e gostaria de inseri-los no listview.

Ai se der para inseri-los como faço para imprimir em pdf esses dados do listview ??

Obrigado,

Rafael.

[Basole]

Rafael, inserir imagem em subItem desconheço.que tenha a possibilidade.

Talvez, pudesse inserir a imagem em uma celula e exportar os dados do listview, para as colunas subsequentes, e em seguida salvar como pdf.

segue exemplo de codigo abaixo que exporta os dados do listview, para as celulas em seguida exporta para pdf.

Private Sub CommandButton2_Click()
Dim x As Integer
Dim i As Integer
Dim lr As Integer
With Sheets("plan1")
lr = .Range("A1048507").End(xlUp).Offset(1, 0).Row
.Range("A2:D" & lr).ClearContents
For x = 1 To ListView1.ListItems.Count
i = .Range("A1048107").End(xlUp).Offset(1, 0).Row

.Cells(i, 1).Value = CDbl(ListView1.ListItems(x))
.Cells(i, 2).Value = ListView2.ListItems(x).SubItems(1)
.Cells(i, 3).Value = ListView2.ListItems(x).SubItems(2)
.Cells(i, 4).Value = (ListView2.ListItems(x).SubItems(3))
Next
.Range("A:D").EntireColumn.AutoFit

.Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="c:\users\Admin\Desktop\SeuFilePdf.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=True
End With

End Sub

Editado Fevereiro 18, 2015 por Basole