Discussion :

[coucou1105]

Bonjour,

J'affiche dans une msgbox un certains nombre de données. J'aimerai, lorsque l'utilisateur le souhaite, pouvoir imprimer ces données. Je ne trouve pas de bouton imprimer pour une msgbox.

Quelqu'un a déja rencontrer mon problème? Des solutions?

Cordialement,

[PMO2017]

Bonjour,

L'utilisateur peut faire la démarche suivante :

Lorsque la MsgBox apparaît
1) faire Ctrl+Alt (touches maintenues) + touche "Imp écran/Syst"
2) une fois la MsgBox entérinée et le programme terminé, faire Ctrl+V
L'image contenue dans le presse-papiers se colle dans la feuille active.

Faites un essai pour voir.

[coucou1105]

effectivement j'ai bien l'image de ma msgbox mais ce que je souhaite faire, c'est avoir un bouton Imprimer dans ma msgbox.

[Invité]

bonjour,
il n'est pas possible d’imprimer un message box.
en revanche il est possible de créer son propre message box, et un UserForm ferra l'affaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim T As String
T = "Bonjour," & vbCrLf
T = T & "" & vbCrLf
T = T & "J 'affiche dans une msgbox un certains nombre de données. " & vbCrLf
T = T & "J'aimerai, lorsque l'utilisateur le souhaite, " & vbCrLf
T = T & "pouvoir imprimer ces données. Je ne trouve pas de bouton " & vbCrLf
T = T & "imprimer pour une msgbox." & vbCrLf
T = T & "" & vbCrLf
T = T & "Quelqu 'un a déja rencontrer mon problème? Des solutions?" & vbCrLf
T = T & "Cordialement,"
UserForm1.message T
End Sub

[coucou1105]

bonjour, merci bcp de votre aide c'est exactement ce que je souhaite faire.
Malheuresement la taille de mon texte est variable, il faudrait que mon userform change de taille pour accepter tout le texte.

Cordialement

[Invité]

Bonjour, test ça

[coucou1105]

Malheuresement cela ne marche pas tres bien.

Je te montre mon fichier.
Dans la feuille Gestion , dans la partie suivi d'avancement, tu as un bouton observation qui te permet de noter des remarques. Ensuite, la liste des remarques doivent aparaitre lorsqu on clique sur le bouton obervations dans la partie progression - problemes rencontrés. Étant donné que je ne connais pas la quantité d'obersavations, il faut que la fenêtre s'adapte.

cordialement,

[Invité]

ça on peut dire qu'elle s'adapte no limite!

[coucou1105]

Effectivement

Tu as regardez mon code? si tu as des questions n'hesite pas

[Invité]

Nouvelle tentative!

[coucou1105]

Pas loin, je vais changer la largeur pour avoir une plus grande largeur que longueur.
Il reste un problème lors de l'impression sa n'imprime pas tout le contenu

[Invité]

comme je ne trouvais pas pour résoudre le problème je l'ai mis en ligne, à deux c'est mieux pour réfléchir.
un label limité en caractères?

[coucou1105]

Il est peu etre possible de copier le contenu de la variable msg Dans un fichier word ? et ensuite de lancer l'impression?

Ce qui serait parfait sa serait lors de l'appui sur imprimer:
WORD se lance copie les données de la variable.
Impression du fichier WORD.
Fermeture sans sauvegarde.
WORD doit rester cacher pendant cette opération.

[Invité]

Bonjour,

Il est peu etre possible de copier le contenu de la variable msg Dans un fichier word ? et ensuite de lancer l'impression?

c'est ce que j'ai fait

[coucou1105]

le problème est que je travail sur un réseau et qu il doit marcher sur toutes les sessions.
le chemin est C:\Documents and Settings\username

il faudrait pouvoir récupérer le username.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
   (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
      ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_HIDE As Long = 0&
' change path as required.
Private Const mc_strLOGFILEPATH As String = "\PrinterLog.txt"
Public Sub LogVariables(T)
   Dim FileNumber
   Dim Rep As String
 
  Rep = Environ("userProfile")
   FileNumber = FreeFile
   ' Create log file
   Open Rep & mc_strLOGFILEPATH For Output As #FileNumber
 
   ' Output variables.
   Write #FileNumber, T
 
   ' Close file.
   Close #FileNumber
   ' Print file
   PrintFile Rep & mc_strLOGFILEPATH
End Sub
Private Sub PrintFile(strFilePath As String)
   ShellExecute Application.hwnd, "Print", strFilePath, 0&, 0&, SW_HIDE
End Sub

[coucou1105]

Parfait.
Un grand merci.