Sauvegarde apres impression form

Version imprimable

05/09/2008, 19h48
azzouz_soui

Sauvegarde apres impression form

Bonjour,
Après un printform je veux stocker la même form dans un fichier dans le but d'y revenir pour une autre impression dans le cas de besoin.
Exemple: stockage des ordonnances d'un médecin .
merci
05/09/2008, 20h33
SfJ5Rpw8

C'est pas la form qu'il te faut stocker mais les données qu'elle utilise dans une base ou un fichier xml ou autre ..

Citation:

stocker la même form dans un fichier dans le but d'y revenir pour une autre impression dans le cas de besoin

Salut bbil, je me demande si azzouz_soui ne veut pas simplement se donner la possibilité de réimprimer l'image du Form.
Dans ce cas, une sauvegarde sous forme de fichier .bmp peut faire l'affaire.
Sur un Form, un CommandButton, 1 PictureBox et tous autres contrôles souhaités

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" ( _
    ByVal hDestDC As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal hSrcDC As Long, _
    ByVal xSrc As Long, _
    ByVal ySrc As Long, _
    ByVal dwRop As Long) As Long
 
Private Sub Form_Load()
Me.ScaleMode = vbPixels: Me.AutoRedraw = True
Picture1.ScaleMode = vbPixels: Picture1.AutoRedraw = True
Picture1.Visible = False
End Sub
 
Private Sub Command1_Click()
Dim DecalTop As Long, DecalLeft As Long
DecalLeft = (ScaleX(Me.Width, vbTwips, vbPixels) - Me.ScaleWidth) / 2
DecalTop = (ScaleX(Me.Height, vbTwips, vbPixels) - Me.ScaleHeight) - DecalLeft
 
Picture1.Cls
Picture1.Height = Me.ScaleHeight: Picture1.Width = Me.ScaleWidth
DoEvents
 
BitBlt Picture1.hDC, 0&, 0&, Me.ScaleWidth, Me.ScaleHeight, _
     GetDC(GetDesktopWindow()), DecalLeft + ScaleX(Me.Left, vbTwips, vbPixels), DecalTop + ScaleY(Me.Top, vbTwips, vbPixels), vbSrcCopy
DoEvents
Picture1.Refresh
'enregistrement de l'image du Form, pouvant être reaffichée (LoadPicture)
'dans un PictureBox en vue de le réimprimer (Printer.PaintPicture)
SavePicture Picture1.Image, "C:\teste.bmp"
End Sub

Tu peux vérifier le resultat, l'image du Form se trouve dans C, elle se nomme teste.bmp

06/09/2008, 20h49
azzouz_soui

sauvegarde apres impression form

Bonjour,
Effectivement Mr PROGELECT je veux sauvegarder l'image de la form .
J'ai teste le code que tu m'a envoyé ça a marche mais l'inconvénient est:
1) - il existe une seule image dans le fichier, quand je sauve une autre la 1ere est écrasée.
2) chaque image prend environ 3MO d'ou il y aura saturation du disque.
Mon but est d'archiver des ordonnances d'un médecin par nom ou par date.
salutations.
06/09/2008, 20h54
ucfoutu

Citation:

Envoyé par azzouz_soui

chaque image prend environ 3MO d'ou il y aura saturation du disque

et bbil a dit (voir plus haut)

Citation:

C'est pas la form qu'il te faut stocker mais les données qu'elle utilise dans une base ou un fichier xml ou autre ..

CQFD ...;)
EDIT : et ... cela t'avait déjà été exposé, il me semble ... ici, par exemple :
http://www.developpez.net/forums/d57...-document-vb6/

EDIT 2 : c'est le texte précis (mot pour mot) de ton ordonnance, que tu dois garder. Ce texte ne saurait dépendre, y compris, de l'utilisation d'une base de données, si tu veux qu'il soit légalement un commencement de preuve.
Il est donc souhaitable, au moment où, depuis ton application, tu "arrêtes" ton ordonnance, de remplir, à ton gré, soit un fichier texte "plat" immuable, soit (si tu préfères une mise en forme, un fichier au format RTF), puis de mettre ce fichier dans un répertoire de ton choix, après l'avoir nommé de manière significative.
Il peut à ce sujet être conseillé de tenir une base de données des patients et d'y inscrire (entre autres) les ordonnances prescrites (noms des fichiers txt ou RTF).....;)
C'est, par exemple, la méthode adoptée en ce qui concerne l'archivage électronique des actes de l'état-civil (une application pour saisir et traiter, puis, au moment de l'arrêté de l'acte ===>> un texte immuable).

Citation:

Mr PROGELECT

ProgElecT sans le Mr est suffisant ;)

ucfoutu, tu as raison, l'indication de bbil est sans doute la solution la plus pertinante.

Ma proposition etant de formuler une possibilité (non performante).
Je savais que la solution de l'image n'etait pas LA solution, mais plutôt qu'une grande discution, je voulais le démontrer ;)
Par la suite, une proposition de sauvegarde de l'image au format .JPG sans compression aurait améliorée les choses, une même image en BMP de 1 537K pouvant être ramenée à 262 K en jpg sans perte notable de qualité.

Une solution aussi serait de sauvegardé dans un fichier .txt toutes les informations specifiques à cette ordonance, si la manipulation d'une BD semble trop ardue à azzouz_soui.

S'il ne sagit que du texte dans un TextBox (ou mieux un RichTextBox), la solution sauvegarde dans un fichier peut être aussi envisageable.

Citation:

quand je sauve une autre la 1ere est écrasée

Pour cela il suffirait de composer le nom du fichier de sauvegarde, peut être en recuperant le nom et prenom du patient,le N° de l'ordonnance
Code:

1 2 3 4 5 6 Dim NamePatient As String, PresNamePatient As String, NumOrdo As String Dim NameFichier As String NamePatient = "Matuvu" PresNamePatient = "Oupas" NumOrdo = "123Abc23" NameFichier = NamePatient & "_" & PresNamePatient & "_" & NumOrdo & ".jpg"
De toutes façon azzouz_soui, quelque soit la solution que tu choisiras, comme tu t'en ais apperçu, tu trouveras de l'aide dans ce forum.

Motif de l'edit:

Citation:

Envoyé par ucfoutu

EDIT 2 : c'est le texte précis (mot pour mot) de ton ordonnance, que tu dois garder. Ce texte ne saurait dépendre, y compris, de l'utilisation d'une base de données, si tu veux qu'il soit légalement un commencement de preuve.

Juste, un fichier sur un disque dur peut être retenu comme recevable par les tribunaux, les moyens technique de verifier la non manipulation du contenu d'un fichier faisant de celui si une preuve suffisante.

01/10/2008, 02h20
azzouz_soui

sauvegarde apres impression form

Bonsoir,
Apres plusieurs recherches sur les forums pour archiver une copie d'une ordonnance sous vb6 pour y reediter en cas de besoin
Je croyais que c'est à l'instar d'un document word mais c'etait impossible
Parmis les reponses qui m'ont ete envoyees j'ai opte pour celle de BBIL d'ou j'ai utilise une base de données.
si qu'elqu'un est interesse par le sujet je serais à sa disposition.
Ce volet est résolu,il me reste la sécurisation de la base de données access et vb6.