Visual Basic 6 - stampare file chiuso

Forum - Visual Basic 6 - stampare file chiuso

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 9:52
Martedì, 14/07/2009

buongiorno a tutti , grazie per le celeri e esaudienti risposte del topic precedente ,
vorrei sottoporre alla vs esperienza questo rompicapo dal quale non riesco a venirne a capo :
alla pressione di un pulsante dovrei stampare un file word chiuso (e che non deve aprirsi,composto da 1 pagina) che si trova nella directory : c:\documenti\ferie.doc
conosco l'istruzione print ma non riesco ad utilizzarla nel modo corretto.

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 10:00
Martedì, 14/07/2009

In questo caso l'istruzione Print non serve.

Devi utilizzare COM per utilizzare un file Word.

Il prerequisito e' che ci sia Word installato nel computer in cui viene eseguito il programma.

Nel tuo programma dovrai referenziare la libreria di Word (menu Reference) e poi, nel codice, creare un oggetto di tipo

Word.Application

non visibile, aprire il file con il metodo Open dell'oggetto e stamparlo con il metodo PrintOut. Infine, dovrai chiudere il file.

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 10:02
Martedì, 14/07/2009

ti spiacerebbe postarmi un esempio pratico ?
Mi sarebbe di un'utilità spaventosa.
Grazie

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 10:20
Martedì, 14/07/2009

Guarda ... proviamo un po' piu' semplicemente ... vedi se questo codice

Codice sorgente - presumibilmente VB.NET

' Nelle dichiarazioni
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 nShowCmd As Long) As Long
 
' Nell'evento in cui stampi
Call ShellExecute(0, "Print", "Tuofile.doc", "", "", 16)

va bene per te ...

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 11:31
Martedì, 14/07/2009

Grazie 1000 , e' proprio quello che fa al caso mio.

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 13:28
Martedì, 14/07/2009

Rieccomi , il codice di prima è ok , ma se volessi dichiarare il file come una variabile ho provato a fare questo ma non funziona :

Private Sub CommandButton1_Click()
Dim X As filetypes
'
X = "Documento.RTF"

'
Call ShellExecute(0, "Print", "C:\Documents and Settings\Documenti\(X)", "", "", 16)
End Sub

Sono dell'opinione che sbaglio a dichiarare la variabile e a inserirla nella path

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 14:28
Martedì, 14/07/2009

Testo quotato

Postato originariamente da mash_mash:
... non funziona ...

E ci credo ... ti sei inventato una tua "sintassi" ...

Deve essere

Call ShellExecute(0, "Print", "C:\Documents and Settings\Documenti\" & X, "", "", 16)