Comando "Shell" in VBA

di Anonimizzato10466 il
1 risposte
/
Anonimizzato10466
Utente anonimizzato
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

  • /
    Anonimizzato6708
    Utente anonimizzato
    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