[VB6] Stampa di un file

[alesssia]

Lo so che può sembrare una domanda stupida, ma come faccio a stampare un file di testo (file.txt) di cui conosco il percorso (/pathName/file.txt)?

Grazie per l'attenzione!

[xegallo]

shell("cmd /k copy c:\vars.txt lpt1")

[alesssia]

Si apre il (finto) prompt dei comandi che mi dice:
impossibile trovare il file specificato

PS: utilizzi lpt1 perché è la porta stampante?

[Pestilence]

Prova a fare una Commondialog con .showopen selezioni il file e poi un command con codice

Printer.ScaleMode = vbMillimeters
Printer.Font = "Times New Roman"
Printer.FontSize = 12
Printer.Print commondialog.filename

In questo modo dovrebbe stamparti il documento ( o almeno credo! non l'ho testato lo sto dicendo come mi passa per il cervello! )

Ovviamente invece di mettere CommonDialog.FileName potresti provare con lo scrivere la path ad esempio:
Printer.Print C:\Pippo\Pluto.txt
ma non credo funzioni!

[alesssia]

Non vanno... : (
Altre idee? Per favooooreee : )

[Nemolog]

prima scrivi questo su un modulo...

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Function Stampa(FileStampa As String)
Dim Ret
Dim FileIn As String

FileIn = FileStampa
Ret = ShellExecute(Form1.hwnd, "print", FileIn & Chr(0), Chr(0), Chr(0), 0)

End Function


poi chiami il tutto così...

Stampa (File da stampare)

fammi sapere