Imprimir conteúdo do item da listbox

[metaclay]

Boas. Estou a desenvolver uma aplicação em que o objectivo é carregar os ficheiros duma pasta à escolha para uma listbox para que possa imprimir o item selecionado dessa listbox. O problema que estou a confrontar é a básica propriedade da seleçao do item.

Em suma, quero imprimir o item selecionado da listbox mas nao sei qual é a propriedade para selecionar o item que quero.

Código que tenho até agora:

- Carregamento dos documentos da pasta

Private Sub btn_carregardados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_carregar.Click
        Dim dir As New IO.DirectoryInfo("c:\dossier")

        Label1.Text = dir.ToString

        Dim files As IO.FileInfo() = dir.GetFiles("*.txt")

        Dim fileName As IO.FileInfo
        For Each fileName In files
            ListBox1.Items.Add(fileName.Name)
        Next


    End Sub

- Parte da impressao

Dim i As Integer
       
        For i = 1 To ListBox1.Items.Count  ' Percorrer todos os items'
            
            If ListBox1.Items(i).Checked = True Then 'Aqui é a parte que quero saber qual a propriedade para trabalhar com o item selecionado '
                PrintDocument1.Print()
            End If
        Next

Aguardo ajuda

[FreiNando]

Para obteres o Indice do Item selecionado não carece cclo de pequisa, usa a propriedade SelectedIndex

Convém saber que o 1º item =0 e o último é [items.Count - 1, e para obter o valor do item Items(Index)

A ListBox só permite selecionar um item de cada vez, já para selecionar vários usa a CheckedListBox e para mais que uma coluna existe a ListView.

[pmaster]

Não entendi bem o problema mas ve se isto te ajuda.

If ListBox1.Items(i).Checked = True Then 'Aqui é a parte que quero saber qual a propriedade para trabalhar com o item selecionado '
               ListBox1.Items.Item(ListBox1.SelectedIndex)
End If

[Joca]

O problema que estou a confrontar é a básica propriedade da seleçao do item.

Em suma, quero imprimir o item selecionado da listbox mas nao sei qual é a propriedade para selecionar o item que quero.

Para seleccionar e, exibir o nome do item seleccionado, pode-se fazer algo do género:

Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click

        MsgBox("Seleccionou o item: " & ListBox1.SelectedItem)

    End Sub

[metaclay]

Acho que vocês nao perceberam o que eu quero. Vou tentar explicar outra vez duma forma mais simplificada...

Desde já, deixo um print screen da aplicação

http://i37.tinypic.com/14bt0rr.jpg

Portanto, o objectivo deste programa é: através do botão 'Imprimir', fazer a impressão, para a impressora predefenida da rede, do documento selecionado na listbox, consoante o nº de cópias que o utilizador colocar. O objecto a usar é o 'PrintDocument' . Como fazer isto?

Espero que tenham percebido a minha ideia agora 👍

[ribeiro55]

Só lidas com TXT ?

[metaclay]

Não, lido com .pdf e .log

[ribeiro55]

Pergunto porque o "PrintDocument" não faz o que parece que julgas que faça.

Não indicas um documento e imprimes.

Com o printdocument tens de literalmente desenhar o documento.

No caso dos TXT é simples, basta escrever linhas controlando os limites horizontais e o número de linhas por página.

Quanto aos PDF, já tens mais voltinhas para dar.

[metaclay]

Então podes sugerir-me outro objecto que faça impressão de documentos?

Eu só nao queria que aparecesse a janela de impressão quando carregasse em imprimir, mas que imprimisse directamente...

[Gooden]

Não precisas printdocument...

   

        Dim p As New System.Diagnostics.ProcessStartInfo()
        p.Verb = "print"
        p.WindowStyle = ProcessWindowStyle.Hidden
        p.FileName = "C:\a.txt"
        p.UseShellExecute = True
        System.Diagnostics.Process.Start (p)
    [code]

[metaclay]

Continua a não funcionar Gooden :\

btw, nao tenho de fazer um if para saber se o item da listbox está selecionado?

[Gooden]

metaclay tenta criar 1 ficheiro txt no c:\ com o nome a.txt e imprimir

[metaclay]

metaclay tenta criar 1 ficheiro txt no c:\ com o nome a.txt e imprimir

Ja deu mas ainda não é exactamente o que quero fazer. Como faço para imprimir todos os ficheiros que acabem em ".txt" e que estejam na pasta "C:/dossier" ?

[Gooden]

Isso e simples como fazer panquecas 👍

        If IO.Directory.Exists("c:\Dossier") Then
            Dim di As New IO.DirectoryInfo("C:\Dossier")
            Dim aryFi As IO.FileInfo() = di.GetFiles("*.txt")
            Dim fi As IO.FileInfo

            For Each fi In aryFi
                Dim p As New System.Diagnostics.ProcessStartInfo()
                p.Verb = "print"
                p.WindowStyle = ProcessWindowStyle.Hidden
                p.FileName = fi.FullName
                p.UseShellExecute = True
                System.Diagnostics.Process.Start(p)
            Next
        Else
            MsgBox("Pasta Não Existe")
        End If

atenção se não existir pasta da erro... fiz uma verificação de pasta se necessário

[metaclay]

É isso mesmooo 👍

só falta mesmo uma coisa, quero que seja so impresso o ficheiro que tiver selecionado na listbox...

Como fazer isso? :s

[Gooden]

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("a.txt")
        ListBox1.Items.Add("b.pdf")
        ListBox1.Items.Add("Exame.txt")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IO.Directory.Exists("c:\dossier") Then
            Dim strFileSize As String = ""
            Dim di As New IO.DirectoryInfo("C:\dossier")
            Dim aryFi As IO.FileInfo() = di.GetFiles(ListBox1.Text)
            Dim fi As IO.FileInfo

            For Each fi In aryFi
                Dim p As New System.Diagnostics.ProcessStartInfo()
                p.Verb = "print"
                p.WindowStyle = ProcessWindowStyle.Hidden
                p.FileName = fi.FullName
                p.UseShellExecute = True
                System.Diagnostics.Process.Start(p)
            Next
        Else
            MsgBox("Pasta Não Existe")
        End If
    End Sub

isto???

[metaclay]

Nao, os items da listbox sao adicionados por uma funçao que eu ja implementei:

Private Sub btn_carregardados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_carregar.Click
        Dim dir As New IO.DirectoryInfo("c:\dossier")

        Label1.Text = dir.ToString

        Dim files As IO.FileInfo() = dir.GetFiles("*.txt")

        Dim fileName As IO.FileInfo
        For Each fileName In files
            ListBox1.Items.Add(fileName.Name)
        Next


    End Sub

Escolhendo um dos items, o conteudo do ficheiro que está descrito na listbox, será impresso...

[Gooden]

Eu adicioneis manualmente... mas e so fazeres 1 botão e inserires o código que fiz no buton click

[metaclay]

AFINAL já funciona 👍

diz-me só mais uma coisa, neste código:

Dim dir As New IO.DirectoryInfo("c:\dossier")

        Label1.Text = dir.ToString

        Dim files As IO.FileInfo() = dir.GetFiles("*.txt")

        Dim fileName As IO.FileInfo
        For Each fileName In files
            ListBox1.Items.Add(fileName.Name)
        Next

na linha de código:

Dim files As IO.FileInfo() = dir.GetFiles("*.txt")

sabes como é que adiciono mais extensões além do .txt?

[metaclay]

Afinal já nao preciso da tua ajuda quanto aos outros tipos de ficheiro ;D