Imprimer un Report avec un TextStream

**zooffy** · 04/12/2017, 09h57

Bonjour à tous.

Je suis confronté à un souci que je n'arrive pas à comprendre.

Je monte un Report aevc une TextBox que ej charge avec un TextStream.
Voici le code.

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
 
Private Sub Report_Current()
Dim oFSOApercu As New Scripting.FileSystemObject
Dim oFlApercu As Scripting.File
Dim ts As TextStream
Dim strSwift As String
 
Dim IDOpenArg As Integer
IDOpenArg = 14190
Set oFlApercu = oFSOApercu.GetFile(DLookup("RepFichier", "SWIFTDataBase", "ID = " & IDOpenArg) & "\" & DLookup("NomFichier", "SWIFTDataBase", "ID = " & IDOpenArg))
Set ts = oFlApercu.OpenAsTextStream(ForReading, TristateUseDefault)
strSwift = ts.ReadAll
txtSWIFT.Value = strSwift
Set oFlApercu = Nothing
ts.Close
Set ts = Nothing
 
End Sub

J'ai eu toutes les peines du monde à faire apapraitre le contenu de la TExtBox à l'ouverture du Report.
Mainenant je voudrais imprimer ce Report à partir d'une Sub que j'ai mis dans un module :

Code :

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

DoCmd.OpenReport "PrintSwiftUnique", acViewReport

Je géreraris un souci d'OpenARgs plus tard car la variable IDOpenArg n'est là que pour simuler l'OpenARgs reel qui arrivera après.
Mon souci est simple : ce que j'imprime est une page vierge, enfin Presque, il y a juste un petit liseret rectangle

En outré, j'ai aussi un souci d'extension de la TextBox en function du contenu. J'ai pas trouvé le moyen de l'étendre vers le bas.

J'ai tenté avec un Label avant, mais je n'ai pas eu gain de cause au chargement du TS.

Pouvez vous m'aider ?

Invité · 04/12/2017, 10h43

Bonjour

Peut-être n'est pas le bon événement.

Essayes sur l’événement Print de la zone où se trouve ton contrôle.

Un peu de lecture sur les états, et sur l'ordre des événements : http://starec.developpez.com/tuto/ecriredessineretats/

Philippe

**zooffy** · 04/12/2017, 12h02

Merci pour ton aide.

Effectivement, c'était bien un souci d'évènement. et je trouvais pas un Event Print.

J'ai un petit souci de rien en plus : il me cole une espèce de fond grisé sur les pages paires et je trouve pas l'endroit où c'est defini dans les propriétés. J'ai revu la TextBox, le Detail et le Report en detail, propriété par proriété, mais je trouve pas, rien à faire.

Si tu as une idée.....