Impression du contenu d'une msgbox

Version imprimable

02/07/2013, 13h24
coucou1105

Impression du contenu d'une msgbox

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,
02/07/2013, 14h10
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.
02/07/2013, 14h14
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.

1 pièce(s) jointe(s)

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:

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

03/07/2013, 08h49
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
03/07/2013, 10h15
Invité

1 pièce(s) jointe(s)

Bonjour, test ça
03/07/2013, 11h33
coucou1105

1 pièce(s) jointe(s)

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,
03/07/2013, 11h44
Invité

ça on peut dire qu'elle s'adapte no limite!
03/07/2013, 12h49
coucou1105

Effectivement :)

Tu as regardez mon code? si tu as des questions n'hesite pas
03/07/2013, 14h42
Invité

1 pièce(s) jointe(s)

Nouvelle tentative!
03/07/2013, 14h49
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
03/07/2013, 14h58
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?
03/07/2013, 16h13
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.
04/07/2013, 10h39
Invité

1 pièce(s) jointe(s)

Bonjour,

Citation:

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
04/07/2013, 12h05
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.

dans ModulePrinter

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
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

04/07/2013, 13h14
coucou1105

Parfait.
Un grand merci.