[TIA V17] RESOLU impression rapport wincc comfort

[patte]

Bonjour,

Je veux faire des captures d'écran et des impression de rapport en PDF sur un TP comfort.
j'utilise printer driver pdf V1.5 de siemens.

Les impressions se passe bien, mais les fichiers on un noms identique sauf la date et l'heure qui change.
il devient très difficile de faire la différence entre un rapport et une capture.

y'a t'il un moyen par script de changer le nom avant l'impression, ou de changer le dossier, dans mon cas je reste avec les paramètre par défaut de l'imprimante.

Merci.

[patte]

J'ai trouver une solution.
Apres chaque Edition de rapport je coupe le fichier et je le colle dans un dossier en le renommant au passage.
tous ca avec un script.

[sinced]

J'ai trouver une solution.
Apres chaque Edition de rapport je coupe le fichier et je le colle dans un dossier en le renommant au passage.
tous ca avec un script.

Bien recu peut etre que tu peux donc poster ton script

[patte]

Voila le script

Code : Tout sélectionner

Dim fsLog
Dim y, m, d ,h,min,s
y = CStr(Year(Now))
m = Right("0" + CStr(Month(Now)),2)
d = Right("0" + CStr(Day(Now)),2)   
h = Right("0" + CStr(Hour(Now)),2)
min = Right("0" + CStr(Minute(Now)),2)
s = Right("0" + CStr(Second(Now)),2)

Set fsLog = CreateObject("FileCtl.FileSystem")

If (fsLog.dir ("\Storage Card SD\Dispersion_Amidon\"))="" Then
fsLog.MkDir "\Storage Card SD\Dispersion_Amidon\"
End If

SetTag "test", "\Storage Card SD\Dispersion_Amidon\Rapport_Dispersion_Amidon_"& y & m & d & h & min & s  & ".pdf"

fsLog.MoveFile "\Storage Card SD\print.pdf",SmartTags("test")

SetTag "DB_Dispersion amidon_Q_Ticket_à_édité",0

[JC87]

Bonjour,

Merci pour le partage, ça pourra servir à d'autres.

JC