Stampa file pdf esistenti da VB6

di
DanieleG
il
2 risposte
D
DanieleG
Utente Attivo
Iscritto da
set, 2015
Messaggi:
106

Stampa file pdf esistenti da VB6

Saluti a tutto il forum,

Devo mettere ancora mano a dei programmi in VB6.

Su uno di questi devo fare stampare dei file pdf situati in una determinata cartella.

Ho installato Adobe Reader, e da software uso la ShellExecute.

Succede una cosa strana, ovvero la prima stampa funziona, da li in poi no.

Ho visto che dopo la prima stampa rimangono aperti nei processi di win. Adobe Acrobat e Adobe AcroCEF, e da quel momento non stampa più.

Se forzo la chiusure dei 2 processi rifunziona.

Qualcuno ha qualche idea ?

Grazie

Daniele G

2 Risposte

  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21747

    Re: Stampa file pdf esistenti da VB6

    Cosa hai scritto?

  • D
    DanieleG
    Utente Attivo
    Iscritto da
    set, 2015
    Messaggi:
    106

    Re: Stampa file pdf esistenti da VB6

    Private Sub Stampa(ByVal sFileName As String)
    Dim ret As Long
    Dim Process As Object
    For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = 'Acrobat.exe'")
        On Error Resume Next
        Process.Terminate
    Next
    ret = ShellExecute(Me.hwnd, "Print", sFileName, vbNullString, vbNullString, SW_HIDE)
End Sub

    Il for Each….Next, al momento l'ho inserito per ovviare al problema descritto.

    Grazie

    DG

Devi accedere o registrarti per scrivere nel forum
2 risposte