Tenho um formulário (userform) em vba feita no excel, que utilizo para inserir dados em arquivo bd do Access.
Minha questão... É possível imprimir diretamente os dados de uma listbox em que foi aplicado filtro, enviando para impressora sem a necessidade de exportar?
Caso não haja a possibilidade de imprimir diretamente, preciso de sugestão de como posso exportar de modo mais simplificado, de modo já exportar com os títulos no cabeçalhos, sem que eu tenha que renomear cada coluna da tabela?
Private Sub bntExportar()
Dim NewFileXLS As Workbook 'Define (Newfilexls) como pasta de trabalho
Set NewFileXLS = Application.Workbooks.Add 'Cria nova pasta de trabalho
Sheets.Add After:=Sheets(Sheets.count) 'Adiciona nova planilha após a última
Call Conectha 'Conecta banco de dados
Set consultha = banko.OpenRecordset("select * from Tabela1") 'Cria consulta seleciona todos campos da Tabela1
NewFileXLS.Worksheets("Plan1").Range("A2").CopyFromRecordset consultha 'Copia a consulta para Plan1
NewFileXLS.Worksheets("Plan1").Range("A1").Value = "Sequencia" 'Nomeia o cabeçalho da coluna a
NewFileXLS.Worksheets("Plan1").Range("B1").Value = "Prontuário" 'Nomeia o cabeçalho da coluna b...
Call Desconectha 'Desconecta banco de dados
NewFileXLS.SaveAs Filename:=Environ("USERPROFILE") & "\Desktop\" & "BDNEW", FileFormat:=xlOpenXMLWorkbook
NewFileXLS.Close
End sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Impressão da dados filtrados em uma listbox
Moderador: joseA
Re: Impressão da dados filtrados em uma listbox
Possível é, mas alé de ser muito chato (precisa contar com o tamanho do listbox, dos dados, etc) e o resultado não é bom. Por isso recomenda-se exportar para uma planilha antes de imprimir.
É a melhor solução conhecida.
É a melhor solução conhecida.