[VB6] Stampa di documenti in una directory

[bobo1981]

ciao a tutti, ho cercato in giro per il forum ma non ho trovato, o forse solo non ho capito, niente che mi poteese aiutare, per cui eccomi qui.
Il problema è semplice, ossia ho un file di testo, in una directory e vorrei fare in modo che al click di una routine venga stamapato, senza essere ne visualizzato ne niente, semplicemente inviato alla stampate. potete aiutarmi?

Ciao e grazie

[bobo1981]

nessunoo sa aiutarmi? Mi basta anche se mi indicate un link dove posso trovare questa informazione, perchè su google non trovo niente
Ciao

[bobo1981]

trovato, posto se può servire a qualcuno. Ciao

Dim oApp As Object


Set oApp = CreateObject("Word.Application")
With oApp
.Documents.Open "c:\test"
.Visible = False
.PrintOut
.Quit
End With
Set oApp = Nothing

[MItaly]

Come metodo non è un granché... necessita di Word installato per stampare qualunque cosa. Se si tratta di un normale file di testo basta usare l'oggetto Printer e relativi metodi.

[bobo1981]

avevo capito che non è un granchè, ma non sapevo proprio come fare.. è da una vita che non utilizzo visual basic, e l'unico modo che ho trovato è questo.
Non è che magari potresti farmi un esempio migliore o indirizzarmi da qualche parte dove posso trovare qualcosa?
Approffitto della tua gentilezza ancora per una cosa....Sai come rendere compatibile un progetto vb6 anche con windows98 (oltre ai più recenti ovviamnete) ?

Grazie mille, ciao

[LMondi]

Ciao bobo1981,
stampare su carta è tutt'altro che semplice; o si usano i report (e DataBase) o ci si deve affidare a Printer.
Di seguito ti posto un esempio che stampa il contenuto di un TextBox con la proprietà Multiline impostata su True:

Private Sub Command1_Click()

Dim s() As String
Dim ix As Long
    
'Printer.PaintPicture Image1, 4000, 3000
    
    Printer.FontBold = True
    Printer.FontItalic = True
    Printer.CurrentY = 1000
    s = Split(Text1.Text, vbCrLf)
        For ix = LBound(s) To UBound(s)
            Printer.CurrentX = 1000
            Printer.Print s(ix)
        Next ix
    Printer.EndDoc
End Sub

[bobo1981]

scusami, ma sono un po' capra....
Nell'esmpio mi indichi come stampare una text box, ma vale anche per stampare un file di testo che con vb non ha niente a che fare? Perchè cio che serve a me è che cliccando un bottone mi vengano copiati alcuni file presenti in una directory (e fin qui ci sono arrivato) e mi stampi un file di testo presente nella stessa. Spero di essermi spiegato.

Ciao, e grazie ancora

[MItaly]

Be', adattarlo non è molto complesso... carica il contenuto del file in una variabile stringa e sostituisci il nome di quest'ultima a "Text1.Text"...

[LMondi]

Ciao bobo1981,
cerco di semplificare e la cosa è fattibile se inserisci un controllo RichTextBox ed un controllo CommonDialog, poi copia il seguente codice che consente di caricare e stampare il file di testo contenuto nel RichTextBox e se devi fare delle variazioni salvarlo:

Private Sub CmdRTBStampa_Click()

' Carica il file di testo:
    With RichTextBox1
        ' Percorso e Nome del file di testo:
        .LoadFile App.Path & "\Prova.txt"
        .BorderStyle = 0
    End With

' Stampa il file di testo:
    RichTextBox1.SelPrint (Printer.hDC)

End Sub

'------------------------------------------------------
Private Sub CmdRTBSalva_Click()
    
' Salva il file:
    CommonDialog1.ShowSave
    RichTextBox1.SaveFile CommonDialog1.FileName, rtfRTF

End Sub

Dovrebbe essere sufficiente per l'operazione che vuoi fare.

[bobo1981]

grazie mille, ciao