Devo creare dei file in formato pdf quindi...accertato che il Distiller di Adobe Acrobat esista sul computer o in rete con:
Controllo la stampa in pdf e setto il distiller come stampante predefinita:
Dim Stampante As Printer
X = 0
For Each Stampante In Printers
If Stampante.DeviceName = "Adobe PDF" Or X = InStr(1, Stampante.DeviceName, "Adobe", vbTextCompare) >= 1 Then
Set Printer = Stampante
Exit For
End If
Next
'Questa è una prova di stampa:
Printer.FontName = "Verdana"
Printer.FontSize = 12
Printer.Font.Bold = True
Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.Print Space(10) & "Richiesta di assistenza"
Printer.FontSize = 10
Printer.Font.Bold = False
Printer.Print Space(10)
Printer.Print "Numero Richiesta"
Printer.Print "01"
Dato questo codice ho i seguinti problemi:
Si apre una finestra per salvare il file con percorso etc etc sai come quella del metodo ShowOpen della
CommonDialog: che non riesco a controllare da codice, o meglio non so come fare...comunque:
1- L'applicazione Adobe Distiller non completa il suo lavoro fintantoché il progetto in VB è in esecuzione,
è come se non ricevesse lo stato attivo, o meglio si interrompe, poi come chiudo il progetto in VB, così
termina subito la creazione del .pdf.
2- Posso passare alla finestra di "Salva" per intenderci tipo CommonDialog, alcuni parametri predefiniti?
Comunque il problema vero è che non crea il pdf fintantoché non chiudo VB, come posso vitare di chiudere il progetto
mio, avevo pensato a AppActivate ???
3- e non centro con tutto questo, ma in VB come si richiama un evento di un form? Call Form_Activate() funziona
ma se voglio un evento su un controllo NO tipo Call RCOD_CLI_Validate()???
qualcuno saprebbe aiutarmi?