Comando "Shell" in VBA

di
sandro.chiarle
il
1 risposte
S
sandro.chiarle
Pochi posts
Iscritto da
mag, 2012
Messaggi:
3

Comando "Shell" in VBA

Buon giorno a tutti
Sono sempre impegnato a risolvere il problema di stampa di un file .txt.
nelle mie peregrinazioni ho preso in esame l'utilizzo di "shell" per aprire un file testo
e stamparne il contenuto , questo è il codice:

Sub Main
Giuliano=Format(ddd,"000")
Pezzi_parziali = Format(pezzi_OK_parziali,"00000")
Anno = Format(YYY,"00")
Open "C:\CodiceBarra.txt" For Output As #1
Print #1 ,"00518066280"&"76107"&"0"&Format(pezzi_OK_parziali,"00000")&Format(ddd,"000")&Format(YYY,"00")
Close #1

If Dir("C:\CodiceBarra.txt") <> "" Then
'comando la stampa del file appena creato
Shell ("Notepad.exe /p C:\CodiceBarra.txt")
End If
End Sub

Come risultato ho la segnalazione"questa caratteristica del linguaggio è disabilitata"
come posso risolvere la questione??

1 Risposte

  • luky1964
    luky1964
    Utente Attivo
    Iscritto da
    nov, 2009
    Messaggi:
    215

    Re: Comando "Shell" in VBA

    Ciao.
    Prova così:
    
Sub Main
Dim X

Giuliano=Format(ddd,"000")
Pezzi_parziali = Format(pezzi_OK_parziali,"00000")
Anno = Format(YYY,"00")
Open "C:\CodiceBarra.txt" For Output As #1
Print #1 ,"00518066280"&"76107"&"0"&Format(pezzi_OK_parziali,"00000")&Format(ddd,"000")&Format(YYY,"00")
Close #1

If Dir("C:\CodiceBarra.txt") <> "" Then
 'comando la stampa del file appena creato
    X = Shell("notepad.EXE /p " & " C:\CodiceBarra.txt")
End If
End Sub
    Saluti 'Toscani'
Devi accedere o registrarti per scrivere nel forum
1 risposte