rafaelsetti

bom dia, por favor alguém poderia me ajudar com este código ? <% sub abreconexao const cntCaminho="C:\serieweb\ecommerce\database\editora.mdb" Set conEditora=Server.CreateObject("ADODB.Connection") ConEditora.Open "provider=microsoft.jet.oledb.4.0;data source="&cntCaminho&";" end sub sub fechaconexao conEditora.close set conEditora=nothing end sub %> <% OPTION EXPLICIT %> <!--#INCLUDE FILE="CONEXAO.INC"--> <% RESPONSE.EXPIRES=0 DIM ConEditora dim categoria,numlivros,rstcat, STRCAT, NUMCAT,STRDATA, RSTDATA, datainicial,DataFinal,STRNREGISTROS, RSTNREGISTROS DIM STRLIVROS, RSLIVROS CALL abreconexao STRDATA="SELECT MAX (DTLANC) AS TOPDATA FROM LIVROS " set RSTDATA = CONEDITORA.EXECUTE(STRDATA) DataFinal=RSTDATA.fields("TOPDATA") datainicial=((DataFinal-30)) STRNREGISTROS="SELECT COUNT (ISBN) AS NUMLIVROS FROM LIVROS " STRNREGISTROS = STRNREGISTROS & "WHERE LIVROS.DTLANC >=#" & DATAINICIAL & "#" set RSTNREGISTROS = CONEDITORA.EXECUTE(STRNREGISTROS) strLivros = "SELECT * " strLivros = strLivros & "FROM Livros " strLivros = strLivros & "INNER JOIN Categorias " strLivros = strLivros & "ON livros.codCategoria = Categorias.codCategoria " strLivros = strLivros & "WHERE livros.dtLanc BETWEEN #" & dataInicial & "# and #" & dataFinal & "# " strLivros = strLivros & "ORDER BY livros.dtLanc desc" Set rsLivros = CONEDITORA.Execute(strLivros) STRCAT="SELECT * " STRCAT = STRCAT & "FROM CATEGORIAS " STRCAT = STRCAT & "ORDER BY CATEGORIA ASC " set rstcat = CONEDITORA.EXECUTE(STRCAT) %> Obrigado,

boa tarde, gostaria de saber como faço uma fórmula que calcule a pontuação dos resultados do bolão como:Apenas vitória de um dos time ou empate no jogo - 5 ptosAcertar vitória ou derrota de um time com acerto de um deles - 8 ptosAcertar o placar exato - 10 ptosE transferir esta planilha para uma outra a classificação de todos os participantes em ordem decrescente de pontos.obrigado,rafael

Boa noite, tem como detectar o erro que não consigo encontrar de váriavel with neste código ?? poderiam me ajudar ?? Obrigado, Rafael Sub altera() Dim PERGUNTA, PERGUNTA2, PERGUNTA3, PERGUNTA4, PERGUNTA5, PERGUNTA6, PERGUNTA7, DECISAO, DECISAO2, DECISAO3, DECISAO4, DECISAO5, DECISAO6, DECISAO7 Dim OL As Outlook.Application Dim olAppt As TaskItem Dim NS As Outlook.Namespace Dim colItems As Outlook.Items Dim olApptSearch As TaskItem Dim r As Long, sSubject As String, sBody As String Dim dStartDate As Date, dDueDate As Date Dim sSearch As String, bOLOpen As Boolean Dim s As Worksheet On Error Resume Next Set OL = GetObject("Outlook.Application") bOLOpen = True If OL Is Nothing Then Set OL = CreateObject("Outlook.Application") bOLOpen = False End If Set NS = OL.GetNamespace("MAPI") Set colItems = NS.GetDefaultFolder(olFolderTasks).Items PERGUNTA = "DIGITE O ASSUNTO:" DECISAO = InputBox(PERGUNTA) PERGUNTA2 = "DIGITE O DATA INICIO:" DECISAO2 = InputBox(PERGUNTA2) PERGUNTA3 = "DIGITE O HORA INICIO:" DECISAO3 = InputBox(PERGUNTA3) PERGUNTA4 = "DIGITE O HORA TÉRMINO:" DECISAO4 = InputBox(PERGUNTA4) PERGUNTA5 = "DIGITE O LOCAL:" DECISAO5 = InputBox(PERGUNTA5) PERGUNTA6 = "DIGITE A CATEGORIA:" DECISAO6 = InputBox(PERGUNTA6) PERGUNTA7 = "DIGITE O CORPO DA MENSAGEM:" DECISAO7 = InputBox(PERGUNTA7) For r = 2 To 5 If Len(Worksheets("Outlook").Cells(r, 1).Value) = 0 Then GoTo NextRow If DECISAO <> "" Then If Worksheets("Outlook").Cells(r, 1).Value = Texttitulo Then Worksheets("Outlook").Cells(r, 1).Value = DECISAO sSubject = Worksheets("Outlook").Cells(r, 1).Value End If If DECISAO2 <> "" Then Worksheets("Outlook").Cells(r, 2).Value = DECISAO2 dStartDate = Worksheets("Outlook").Cells(r, 2).Value Worksheets("Outlook").Cells(r, 4).Value = DECISAO2 dDueDate = Worksheets("Outlook").Cells(r, 4).Value End If If DECISAO3 <= "23:59" Then Worksheets("Outlook").Cells(r, 3).Value = DECISAO3 dStartTIME = Worksheets("Outlook").Cells(r, 3).Value End If If DECISAO4 < "23:59" Then Worksheets("Outlook").Cells(r, 5).Value = DECISAO4 dDueTIME = Worksheets("Outlook").Cells(r, 5).Value End If If DECISAO6 <> "" Then Worksheets("Outlook").Cells(r, 6).Value = DECISAO6 dCATEGORIES = Worksheets("Outlook").Cells(r, 6).Value End If If DECISAO5 <> "" Then Worksheets("Outlook").Cells(r, 7).Value = DECISAO5 dLOCATION = Worksheets("Outlook").Cells(r, 7).Value End If If DECISAO7 <> "" Then Worksheets("Outlook").Cells(r, 8).Value = DECISAO7 dBODY = Worksheets("Outlook").Cells(r, 8).Value End If End If sSubject = Worksheets("OUTLOOK").Cells(r, 1).Value dStartDate = Worksheets("OUTLOOK").Cells(r, 2).Value dDueDate = Worksheets("OUTLOOK").Cells(r, 4).Value dStartTIME = Worksheets("OUTLOOK").Cells(r, 3).Value dDueTIME = Worksheets("OUTLOOK").Cells(r, 5).Value dLOCATION = Worksheets("OUTLOOK").Cells(r, 6).Value dCATEGORIES = Worksheets("OUTLOOK").Cells(r, 7).Value dBODY = Worksheets("OUTLOOK").Cells(r, 8).Value sSearch = "[subject] = " & sQuote(sSubject) Set olApptSearch = colItems.Find(sSearch) 'If olApptSearch Is Nothing Then ' Set olAppt = OL.CreateItem(olTaskItem) ' olAppt.subject = sSubject ' olAppt.StartDate = dStartDate ' olAppt.DueDate = dDueDate 'olAppt.StartTime = dStartTIME 'olAppt.DueTIME = dDueTIME 'olAppt.Location = dLOCATION 'olAppt.Categories = dCATEGORIES 'olAppt.Body = dBODY 'olAppt.Close olSave 'End If If RESP <> "1" Then Set olApptSearch = colItems.Find(sSearch) If olAppt.subject = Texttitulo Then Set olAppt = OL.updateitem(olTaskItem) olAppt.subject = sSubject olAppt.StartDate = dStartDate olAppt.DueDate = dDueDate olAppt.StartTime = dStartTIME olAppt.DueTIME = dDueTIME olAppt.Categories = dCATEGORIES olAppt.Location = dLOCATION olAppt.Body = dBODY olAppt.Close olSave End If End If NextRow: Next r If bOLOpen = False Then OL.Quit End Sub

Gostaria de saber, como consigo alterar, excluir e não permitir compromissos duplicados no outlook pelo VBA ??? Obrigado, Rafael

boa noite, Gostaria de uma ajuda.. Através de uma consulta do sistema do vba pelo textbox textcliente ele busque um arquivo .doc em uma pasta um relatório do paciente e se não tiver abrir um documento em branco e salvar com o nome do cliente do novo registro na mesma pasta. Dá para fazer, consegui pegar alguns códigos de word aqui, mas todos dão erro. Obrigado, Rafael

A ordem da classificação é: primeiro: data - depois hora depois - data_prox_agendamento depois hora_prox_agendamento.. Segue abaixo o código fonte. Obrigado, Rafael Private Sub Textpesquisanome_Change() Dim nConn As New ADODB.Connection Dim DB As Database Dim nConn2 As New ADODB.Connection Dim BANCO As New ADODB.Recordset Dim BANCO1 As ADODB.Recordset Dim SQL As String Dim SQL2 As String Dim Count Dim nConectar As String Dim nConectar2 As String 'Endereço e nome do banco de dados * habilite o provedor de acordo c/ sua versao: ' nConectar = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\base.mdb" nConectar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "\\CARLOSSETTI-PC\C\REAL FEET\DATABASE\REALFEET.MDB" nConn.ConnectionString = nConectar nConn.Open nConectar2 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "\\CARLOSSETTI-PC\C\REAL FEET\DATABASE\REALFEET.MDB" nConn2.ConnectionString = nConectar2 nConn2.Open Set BANCO1 = New ADODB.Recordset BANCO1.Open ("AGENDAMENTO"), nConn2 Dim i As Integer i = 0 Me.Listview1.ListItems.Clear Me.Listview1.ColumnHeaders.Clear Me.Listview1.View = lvwReport Me.Listview1.Gridlines = True Listview1.ColumnHeaders.Clear Me.Listview1.ColumnHeaders.Add , , "", 0 Me.Listview1.ColumnHeaders.Add , , "OS", 60, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "DATA", 170, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "HORA", 170, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "CLIENTE", 170, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "FONE1", 120, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "FONE2", 120, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "RAMAL", 120, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "E-MAIL", 170, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "SERVIÇO", 170, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "PROFISSIONAL", 170, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "DATA_PROX_CONSULTA", 170, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "HORA_PROX_CONSULTA", 170, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "E-MAIL CONFIRMAÇÃO DE CONSULTA", 300, lvwColumnCenter Me.Listview1.ColumnHeaders.Add , , "E-MAIL CONFIRMAÇÃO DE RETORNO", 300, lvwColumnCenter 'Aqui é nossa busca pelo que digitammos 'A busca pode ter qualquer parametro desde que lhe atenda Dim CADASTRO(1 To 15) CADASTRO(1) = UCase(Me.TextFILTROPROF.Text) TextFILTROPROF.Text = CADASTRO(1) CADASTRO(2) = UCase(Me.Textcliente2.Text) Textcliente2.Text = CADASTRO(2) If TextFILTROPROF.Text = Null Then MsgBox "CAMPO DE PESQUISA PARA AGENDA: PROFISSIONAL ESTÁ EM BRANCO" End If If textboxfiltro.Text = Null Then MsgBox "CAMPO DE PESQUISA PARA AGENDA: DATA ESTÁ EM BRANCO" End If SQL = "SELECT OS,NOME,DATA,HORA,fone1,fone2,RAMAL,EMAIL,SERVICO,PROFISSIONAL,DATA_PROX_AGENDAMENTO,HORA_PROX_AGENDAMENTO,consulta,retorno,PRONTUARIO FROM [AGENDAMENTO]" SQL = SQL & " WHERE [DATA] = '" & textboxfiltro & "' OR [DATA_PROX_AGENDAMENTO]='" & textboxfiltro & "'" SQL = SQL & " AND [PROFISSIONAL]= '" & TextFILTROPROF & "' OR [DATA] = '" & textboxfiltro & "' OR [DATA_PROX_AGENDAMENTO]='" & textboxfiltro & "'" 'sql2 = "SELECT OS,NOME,DATA,HORA,TELRES,TELCEL,TELCOM,RAMAL,EMAIL,SERVICO,PROFISSIONAL,DATA_PROX_AGENDAMENTO,HORA_PROX_AGENDAMENTO,OBSERVACAO,PRONTUARIO FROM [AGENDAMENTO]" 'sql2 = sql2 & " WHERE [DATA_PROX_AGENDAMENTO] = '" & TextBOXFILTRO & "'" 'sql2 = sql2 & " AND [PROFISSIONAL]= '" & TextFILTROPROF & "'" Set BANCO = New ADODB.Recordset BANCO.Open SQL, nConn i = 1 'banco1.Open sq2, nConn2 'Count = BANCO1.RecordCount 'BANCO1.MoveFirst 'Set DB = OpenDatabase("\\CARLOSSETTI-PC\C\REAL FEET\DATABASE\REALFEET.MDB") 'Set BANCO = DB.OpenRecordset("AGENDAMENTO") 'BANCO.MoveFirst While Not BANCO.EOF If TextFILTROPROF <> "" And textboxfiltro <> "" And Textcliente2 = "" Or TextFILTROPROF = "" And textboxfiltro <> "" And Textcliente2 = "" Then Set LI = Listview1.ListItems.Add(Text:=BANCO("OS")) If (BANCO("DATA") = textboxfiltro.Text Or BANCO("DATA_PROX_AGENDAMENTO") = textboxfiltro.Text) Or (BANCO("DATA") = textboxfiltro.Text Or BANCO("DATA_PROX_AGENDAMENTO") = textboxfiltro.Text) And BANCO("PROFISSIONAL") = TextFILTROPROF.Text Then If BANCO("os") <> "" Then LI.ListSubItems.Add Text:=BANCO("OS") End If If BANCO("data") <> "" Then LI.ListSubItems.Add Text:=BANCO("DATA") End If If BANCO("hora") <> "" Then LI.ListSubItems.Add Text:=BANCO("HORA") End If If BANCO("nome") <> "" Then LI.ListSubItems.Add Text:=BANCO("NOME") End If If BANCO("FONE1") <> "" Then LI.ListSubItems.Add Text:=BANCO("FONE1") End If If BANCO("FONE2") <> "" Then LI.ListSubItems.Add Text:=BANCO("FONE2") End If If BANCO("ramal") <> "" Then LI.ListSubItems.Add Text:=BANCO("RAMAL") End If If BANCO("email") <> "" Then LI.ListSubItems.Add Text:=BANCO("EMAIL") End If If BANCO("servico") <> "" Then LI.ListSubItems.Add Text:=BANCO("SERVICO") End If If BANCO("profissional") <> "" Then LI.ListSubItems.Add Text:=BANCO("profissional") End If If BANCO("data_prox_agendamento") <> "" Then LI.ListSubItems.Add Text:=BANCO("data_prox_agendamento") End If If BANCO("hora_prox_agendamento") <> "" Then LI.ListSubItems.Add Text:=BANCO("hora_prox_agendamento") End If If BANCO("CONSULTA") <> "" Then LI.ListSubItems.Add Text:=BANCO("CONSULTA") End If If BANCO("RETORNO") <> "" Then LI.ListSubItems.Add Text:=BANCO("RETORNO") End If End If Listview1. Dim item As ListItem 'Aqui estamos acessando e definindo cada subitem 'Define o formato de visao como Report Listview1.View = lvwReport i = i + 1 BANCO.MoveNext End If Wend 'Aqui estamos acessando e definindo cada subitem 'Define o formato de visao como Report Listview1.View = lvwReport Call TiraAcento2(linha) While Not BANCO1.EOF If TextFILTROPROF = "" And textboxfiltro = "" And Textcliente2 = BANCO1("NOME") Then Set LI = Listview1.ListItems.Add(Text:=BANCO1("OS")) If BANCO1("os") <> "" Then LI.ListSubItems.Add Text:=BANCO1("OS") End If If BANCO1("data") <> "" Then LI.ListSubItems.Add Text:=BANCO1("DATA") End If If BANCO1("hora") <> "" Then LI.ListSubItems.Add Text:=BANCO1("HORA") End If If BANCO1("nome") <> "" Then LI.ListSubItems.Add Text:=BANCO1("NOME") End If If BANCO1("FONE1") <> "" Then LI.ListSubItems.Add Text:=BANCO1("FONE1") End If If BANCO1("FONE2") <> "" Then LI.ListSubItems.Add Text:=BANCO1("FONE2") End If If BANCO1("ramal") <> "" Then LI.ListSubItems.Add Text:=BANCO1("RAMAL") End If If BANCO1("email") <> "" Then LI.ListSubItems.Add Text:=BANCO1("EMAIL") End If If BANCO1("servico") <> "" Then LI.ListSubItems.Add Text:=BANCO1("SERVICO") End If If BANCO1("profissional") <> "" Then LI.ListSubItems.Add Text:=BANCO1("profissional") End If If BANCO1("data_prox_agendamento") <> "" Then LI.ListSubItems.Add Text:=BANCO1("data_prox_agendamento") End If If BANCO1("hora_prox_agendamento") <> "" Then LI.ListSubItems.Add Text:=BANCO1("hora_prox_agendamento") End If If BANCO1("CONSULTA") <> "" Then LI.ListSubItems.Add Text:=BANCO1("CONSULTA") End If If BANCO1("RETORNO") <> "" Then LI.ListSubItems.Add Text:=BANCO1("RETORNO") End If End If BANCO1.MoveNext Wend CommandButton4.Enabled = False CommandButton5.Enabled = False CommandButton6.Enabled = False CommandButton7.Enabled = False CommandButton12.Enabled = False CommandButton15.Enabled = False nConn.Close Set BANCO = Nothing Exit Sub End Sub

boa tarde, gostaria de saber como ordenar uma listview pelo campo hora?? obrigado, Rafael

tente assim: provider=microsoft.ace.oledb.12.0;data source= \\nomedaredenoseucomputador\app\db.accdb ou assim: provider=microsoft.ace.oledb.12.0;data source= \\nomedaredenoseucomputador\c\app\db.accdb para ver se funciona!!! Obrigado, Rafael

Este é o código de inclusão de cliente. Mas antes deste código preciso de um outro código de busca de endereço, numero, bairro, cidade, uf sem usar internet explorer, sendo o campo a informar o cep é o textcep. Obrigado, Rafael Private Sub CommandINCLUIR_Click() Dim BD As Database Dim dt As Recordset Dim CADASTRO(1 To 15) CADASTRO(1) = UCase(Me.TextCLIENTE.Text) CADASTRO(2) = UCase(Me.TextRG.Text) CADASTRO(3) = UCase(Me.TextCPF.Text) CADASTRO(4) = UCase(Me.TextDATA.Text) CADASTRO(5) = UCase(Me.TextENDERECO.Text) CADASTRO(5) = UCase(Me.TextENDERECO.Text) CADASTRO(6) = UCase(Me.TextN.Text) CADASTRO(7) = UCase(Me.TextBAIRRO.Text) CADASTRO(8) = UCase(Me.ComboCIDADE.Text) CADASTRO(9) = UCase(Me.ComboUF.Text) CADASTRO(10) = UCase(Me.TextCEP.Text) CADASTRO(11) = UCase(Me.TextTELRES.Text) CADASTRO(12) = UCase(Me.TextTELCEL.Text) CADASTRO(13) = UCase(Me.TextTELCOM.Text) CADASTRO(14) = UCase(Me.TextRAMAL.Text) CADASTRO(15) = LCase(Me.TextEMAIL.Text) CADASTRO(16) = LCase(Me.textcompl.Text) If Len(Me.TextCLIENTE) = 0 Then MsgBox "VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DE CLIENTES" Else Carrega_imagem_Click Set BD = OpenDatabase("\\SERVIDOR\real feet\database\realfeet.mdb") Set rs = BD.OpenRecordset("cliente") If Me.Textcod.Text = "" Then MsgBox "INSIRA UM CÓDIGO DE CLIENTE VÁLIDO" Me.Textcod.SetFocus Exit Sub End If ' os campos na tabela já estão criados, DataNascimento e CodigoPostal ' falta somente os textboxes rerentes a eles e adicionar abaixo no código (rs.DastaNscimento e rs.CodigoPostal) Call TiraAcento2(TextCLIENTE.Text) While Not rs.EOF 'adicione os ítens a ser criados aqui!!!!!!! If rs!codigo = Me.Textcod.Text Then MsgBox ("CÓDIGO DE CLIENTE JÁ CADASTRADO") resp = 1 GoTo FIM2 End If If rs!NOME = Me.TextCLIENTE.Text Then MsgBox ("NOME DE CLIENTE JÁ CADASTRADO") resp = 1 GoTo FIM2 End If rs.MoveNext Wend If resp <> 1 Then rs.AddNew rs!codigo = Me.Textcod.Text rs!NOME = CADASTRO(1) rs!RG = Me.TextRG rs!CPF = Me.TextCPF rs!DATANASCIMENTO = Me.TextDATA rs!endereco = CADASTRO(5) rs!N = Me.TextN rs!COMPL = Me.textcompl rs!BAIRRO = CADASTRO(7) rs!CIDADE = CADASTRO(8) rs!UF = CADASTRO(9) rs!cep = Me.TextCEP rs!FONE1 = Me.TextTELRES rs!FONE2 = Me.TextTELCEL rs!RAMAL = Me.TextRAMAL rs!Email = CADASTRO(15) rs!FOTO = Me.TextCAMINHOPATH rs.Update rs.Close BD.Close MsgBox ("DADOS INSERIDOS COM SUCESSO!"), vbInformation Call TiraAcento(rs!NOME) Me.Textcod = Null Me.TextCLIENTE = Null Me.TextRG = Null Me.TextCPF = Null Me.TextDATA = Null Me.TextENDERECO = Null Me.TextN = Null Me.textcompl = Null Me.TextBAIRRO = Null Me.TextCEP = Null Me.TextTELRES = Null Me.TextTELCEL = Null Me.TextRAMAL = Null Me.TextEMAIL = Null Me.ComboCIDADE = Null Me.ComboUF = Null Me.IMAGEFOTO.Picture = Nothing Me.TextCAMINHOPATH = Null Me.Textcod.SetFocus FIM2: End If GoTo FIM Exit Sub FIM: End If End Sub

basole, como faço para rodar esse código que você me passou ele dá erro quando eu aplico esse código diz que o código não foi cadastrado!!! Obrigado, Rafael

OS CAMPOS ESTÃO EU UM FORM USERFORM1

OBRIGADO PELA RESPOSTA, OS DADOS NÃO ESTÃO NA PLANILHA, ELE DIGITOU EM UM FORMULÁRIO TEXTCEP. AI QUERIA QUE PREENCHESSE OS CAMPOS TEXTN, TEXTENDERECO, COMBOCIDADE, E COMBOUF. ENTENDEU ??? OBRIGADO, RAFAEL

BOA TARDE, TEM ALGUM CÓDIGO EM VBA PARA PESQUISA CEP (ENDEREÇO, N, BAIRRO, CEP, CIDADE, UF) SEM UTILIZAR O INTERNET EXPLORER, POIS PRECISO INSTALAR UM SOFTWARE EM UMA CLINICA E LÁ USA UM WINDOWS XP COMO NÃO DÃO MAIS SUPORTE PARA ESTE WINDOWS NECESSITA DE ATUALIZAÇÃO PARA O INTERNET EXPLORER PARA UTILIZAÇÃO DESTE RECURSO DO CÓDIGO QUE EU TENHO PARA ESTA PESQUISA QUE USA O INTERNET EXPLORER, NO 8 ELE NÃO RODA, PODEM ME AJUDAR COM OUTRO CÓDIGO ??? PARA PESQUISAR O CAMPO DA PESQUISA É TEXTCEP.TEXT. OBRIGADO, RAFAEL

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.

OBRIGADO PELA RESPOSTA, FUNCIONOU DIREITINHO O LISTVIEW. ESSE CÓDIGO DO TESTPRINT EU JÁ TINHA TENTADO OUTRA VEZ MAIS NÃO PASSOU, POSSO TIRAR OUTRA DÚVIDA SEM QUERER ABUSAR DA SUA BOA VONTADE ??? COMO EU INSIRO UMA IMAGEM DENTRO DO SUBITEM DO LISTVIEW É porque TENHO IMAGENS DE PÓS TRATAMENTO, O DO PRÓPRIO PACIENTE ANTES DO TRATAMENTO, E O DO PRONTUÁRIO QUE GOSTARIA DE COLOCÁ-LO. SE TIVER COMO DARIA PARA IMPRIMIR ESSA LISTVIEW COM ESSES DADOS EM PDF ??? OBRIGADO.