Impression fichier en vb6 : suppression boite de dialogue windows

Signaler
Messages postés
14
Date d'inscription
vendredi 3 février 2006
Statut
Membre
Dernière intervention
7 juin 2008
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour,

Comment faire en visual basic 6(lors de l'impression d'un fichier html en fichier pdf avec PDFcreator) pour que la boite de dialogue windows de l'impression ne s'ouvre pas , j'aimerais ne pas être obliger de cliquez sur " Imprimer" pour faire la conversion de mes fichiers.

Voiçi le code, ce code m'ouvre une fenêtre "windows impression" , je souhaite que l'impression se fasse tte seule sans avoir à appuyer sur la touche "imprimer" :

Private WithEvents PDFCreator1 As PDFCreator.clsPDFCreator
Private pErr As clsPDFCreatorError
Private opt As clsPDFCreatorOptions

Private Sub Class_Initialize()
Set PDFCreator1 = New clsPDFCreator
Set pErr = New clsPDFCreatorError
noStart = True
With PDFCreator1
.cVisible = True
If .cStart("/NoProcessingAtStartup") = False Then
If .cStart("/NoProcessingAtStartup", True) = False Then
Exit Sub
End If
.cVisible = True
End If

Set opt = .cOptions

.cClearCache

ImprimanteParDefaut = .cDefaultPrinter
noStart = False
End With
AddStatus "Program started"
End Sub

Public Sub ConversionPDF()
AddStatus "Start creating pdf : debut fct conversion pdf..."
With opt
.AutosaveDirectory = Trim$(NomDir)
.AutosaveFilename = Trim$(NomFichier)
.UseAutosave = 1
.UseAutosaveDirectory = 1
.AutosaveFormat = 0
.DontUseDocumentSettings = 0
End With
Set PDFCreator1.cOptions = opt
PDFCreator1.cClearCache
PDFCreator1.cDefaultPrinter = "PDFCreator"
PDFCreator1.cPrintFile Trim$(ChemDocComplet) 'c ici que ma fenetre s'ouvre
PDFCreator1.cVisible = False

PDFCreator1.cPrinterStop = False
StartTime = Now
While PDFCreator1.cPrinterStop = False
DoEvents
Wend
End Sub

Private Sub PDFCreator1_eReady()
AddStatus """" & PDFCreator1.cOutputFilename & """ was created! (" & _
DateDiff("s", StartTime, Now) & " seconds)"
PDFCreator1.cPrinterStop = True
End Sub
Private Sub PDFCreator1_eError()
Set pErr = PDFCreator1.cError
AddStatus "Error[" & pErr.Number & "]: " & pErr.Description
PDFCreator1.cDefaultPrinter = ImprimanteParDefaut
End Sub

Private Sub Class_Terminate()
If noStart = False Then
DoEvents
PDFCreator1.cClose
End If
Set PDFCreator1 = Nothing
Set pErr = Nothing
Set opt = Nothing
End Sub

1 réponse

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
pas la peine de flooder, merci !
tu as déjà posé cette question la veille au soir, laisse le temps aux membres de consulter le forum

rien ne t'empêche de le consulter aussi pendant ce temps d'ailleurs (même avant, logiquement)

Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp