27/07/11 7:21
wuolfit
beh al posto di "percorso del file" va messo Dir1.path & "\" & File1.FileName quindi la stringa che uso è :
stampa = ShellExecute(0, "Print", Dir1.path & "\" & File1.FileName, "", "", 0)
(ovviamente Dir1 è una dirlistbox, mentre File1 è una Filelistbox) ora con questa istruzione mi stampa il file che io seleziono dalla mia filelistbox usando la stampante predefinita e non quella che io vorrei usare
Ultima modifica effettuata da wuolfit 27/07/11 7:55
aaa
28/07/11 7:41
wuolfit
Effettivamente il link che avevi postato lo avevo ignorato, non perché non l'avessi visto o letto, ma perché non fà altro che farmi creare una lista da cui scegliere la stampante(proprio la cosa che volevo evitare), invece speravo che ci fosse un metodo, anche con i filelistbox o similari, per mandare in stampa i miei documenti, senza dover usare questa procedura. Allora non era più comodo fare così ????
Private 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 ShowCmd As Long) As Long
Dim stampa As Long
CommonDialog1.ShowPrinter
stampa = ShellExecute(0, "Print", Dir1.path & "\" & File1.FileName, "", "", 0)
dove ovviamente con CommonDialog1.ShowPrinter mi viene mostrato la classica finestra di sistema da cui scegliere la mia stampante
Ultima modifica effettuata da wuolfit 28/07/11 7:48
aaa
28/07/11 13:38
wuolfit
Si si ricordi bene.....dicevo che commondialog è più comodo o efficiente che dir si voglia perché comunque mi permette di scegliere la stampante che voglio usare, per poi rimettere tutto in ordine senza scrivere tonnellate di codice....Grazie per il tuo aiuto ora ho chiaro come devo agire per risolvere questa cosa!!!!
Ultima modifica effettuata da wuolfit 28/07/11 13:42
aaa