Discussion :

[iclic]

Tu peux aussi utiliser les instructions

"LSET" pour cadrer à gauche et
"RSET" pour aligner à droite ( utile pour les nombres)

pour plus de détails sur leur emploi voir dans la MSDN mot à rechercher

Code :

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

1
2
3
4
5
6
7
8
 
'exemple
Dim Var1 As String
Dim Var2 As String
 
Var1 = Space(30)
Var2 = "TOTO"
RSet Var1 = Var2

[Attila54]

merci a vous 2 pour les conseils, c'est vrai qu'en ne mettant pas de "space" .... j'est testé en comparant avec un fichier .txt et en jouant avec la space bar, effectvement une unité de "space equivaut a une unié de "space"

Reste que mon scrollbar horizontal patauge dans la semoule a l'aperçu

[ProgElecT]

Salut

merci a vous 2 pour les conseils
............
Reste que mon scrollbar horizontal patauge dans la semoule a l'aperçu

Si cela peut t'aider
Sur un Form, 1 HScrollBar, 1 VScrollBar, 1 PictureBox (PictConteneur) et 1 PictureBox (PictInterne) posé dans le PictConteneur et ce

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Option Explicit
 
Private Sub Form_Load()
'--------------- partie code pour la démonstration ----------------------------------
Form1.ScaleMode = vbTwips
Form1.Height = 6300: Form1.Width = 7170
'placement et dimmensionnement
PictConteneur.Move 360, 360, 6495, 5295
 
PictInterne.Appearance = 0: PictInterne.BorderStyle = 1
PictInterne.AutoRedraw = True
PictInterne.Move 0, 0, (PictConteneur.ScaleWidth * 3), PictConteneur.ScaleHeight * 3
 
'pour repèrer le deplacement avec les Scrolls
PictInterne.Print "Haut gauche"
PictInterne.CurrentX = 0
PictInterne.CurrentY = PictInterne.ScaleHeight - 210
PictInterne.Print "Bas gauche"
PictInterne.CurrentX = PictInterne.ScaleWidth - 840
PictInterne.CurrentY = 0
PictInterne.Print "Haut droite"
PictInterne.CurrentX = PictInterne.ScaleWidth - 780
PictInterne.CurrentY = PictInterne.ScaleHeight - 210
PictInterne.Print "Bas droite"
PictInterne.CurrentX = (PictInterne.ScaleWidth / 2) - 540
PictInterne.CurrentY = (PictInterne.ScaleHeight / 2) - 120
PictInterne.Print "Centre"
PictInterne.Line (0, 0)-(PictInterne.ScaleWidth, PictInterne.ScaleHeight)
PictInterne.Line (0, PictInterne.ScaleHeight)-(PictInterne.ScaleWidth, 0)
 
HScroll1.Move 300, 60, 6495, 255
VScroll1.Move 60, 360, 255, 5295
'--------------- fini partie code pour la démonstration ----------------------------------
 
 
'*************** la partie configuration des Scrolls ******************
HScroll1.Max = (PictInterne.ScaleWidth - PictConteneur.ScaleWidth) + 90
HScroll1.Min = 0
HScroll1.SmallChange = 15
HScroll1.LargeChange = 15
HScroll1.Value = HScroll1.Max / 2 '<--------- pour la démonstration
 
VScroll1.Max = (PictInterne.ScaleHeight - PictConteneur.ScaleHeight) + 90
VScroll1.Min = 0
VScroll1.SmallChange = 15
VScroll1.LargeChange = 15
VScroll1.Value = VScroll1.Max / 2 '<--------- pour la démonstration
 
End Sub
'*********************** le code pour faire bouger le picture deposé sur le picture conteneur **********************
Private Sub HScroll1_Change()
'deplacement horizontal
PictInterne.Left = -HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub
 
Private Sub VScroll1_Change()
'deplacement vertical
PictInterne.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
VScroll1_Change
End Sub

Il te faut comprendre les lignes suivant ses commentaires
'*************** la partie configuration des Scrolls ******************
et
'*********************** le code pour faire bouger le picture deposé sur le picture conteneur **********************

[ngale]

il y a possibilité d'imprimer avec bcp plus de facilité avec frm les aperçu peuvent contenir même les images et autres.
J'ai deposé le même code chez developpez.com mais j'ai du mal à le localiser

suivez alors ce lien:

Aperçu avant impression en vb6 avec frm

[SfJ5Rpw8]

il y a possibilité d'imprimer avec bcp plus de facilité avec frm les aperçu peuvent contenir même les images et autres.
J'ai deposé le même code chez developpez.com mais j'ai du mal à le localiser

suivez alors ce lien:

Aperçu avant impression en vb6 avec frm

j'ai corrigé le lien ... ngale, pour retrouver tes sources :
http://vb.developpez.com/telecharger/auteur/id/378596

[jack554]

il y a possibilité d'imprimer avec bcp plus de facilité avec frm les aperçu peuvent contenir même les images et autres.
J'ai deposé le même code chez developpez.com mais j'ai du mal à le localiser

suivez alors ce lien:

Aperçu avant impression en vb6 avec frm

Bonjour,

ngale je ne sais pas si tu viens encore sur ce forum ... J'ai récupéré tes sources, très intéressantes pour faire de l'impression d'états sous VB sans utiliser ni Word ni Excel ni Crystal Reports ...

Mais je ne comprends pas tout ??? A quoi servent exactement tes boutons de commande "Malembe1" et "Mbangu2" ??? L'exécutable fonctionne si on ne les utilise pas, mais on ne peut pas les supprimer du projet ...

D'autre part, l'utilisation d'un MDI-Form avec une page par document n'est pas exactement ce que je recherche, car il faudra que l'utilisateur passe sur toutes les pages pour les imprimer une à une ...

Merci.

[ProgElecT]

Salut jack554

Dernière activité
05/11/2016 12h52

Malheureusement, Je doute fort que tu obtiennes une réponse.

[jack554]

Merci ProgElecT

Tu n'as sûrement pas eu le temps de regarder mon problème initial (créer depuis VB6 de beaux documents OpenOffice avec tableaux, entête de page, logo, pied de page, etc ..., comme j'avais réussi laborieusement à le faire avec Word).

Deux solutions m'ont été proposées : utiliser un Picture box (solution de Daudet78), ou cette solution de MDI-Form (proposée par NGale).

Les deux me semblent complexes et ne répondent pas parfaitement à mon besoin, mais d'un autre côté piloter OpenOffice semble aussi très compliqué ...

Pour achever de compliquer le tout, la dernière version d'Office (2019) n'est plus du tout structurée comme avant ! Mon code ne fonctionne donc plus.

Initialement je créais des fichiers texte, ça marchait très bien mais ce n'était pas très joli bien sûr. Je crois que je vais dire à mes utilisateurs qu'il ne reste que cette solution !

Bonne soirée !
Jack554

[ProgElecT]

Salut

En effet j'ai suivi un peu ta problématique.
Pour ma part, pour être indépendant de toute modification ou nouvelle version des exécutables extérieurs, j'utilisai l'objet Printer sur lequel je dessinai et j’écrai dessus, ce qui est le plus délicat est de maitriser la hauteur de l'ensemble, pour éventuellement faire un passage à la page suivante, mais s'est faisable en faisant un prévisu sur un Form.
En gros un bouton imprimer pour l'utilisateur, dessin(s) plus texte(s) sur un Form, sur ce Form qui sert de previsu,un bouton de confirmation d'impression.
Le dessin(s) et le texte(s) provenant de la même routine mais s'appliquant au Form prévisus dans un premier temps, puis à l'objet printer lors de l'appui sur le bouton du Form prévisu.

[jack554]

Ah oui c'est ce que je me disais un peu aussi : un simple Form suffirait, pas besoin de Form MDI ou de PictureBox ?

Bon je vais tester tout ça, c'est super motivant d'arriver à être indépendant de tous ces Office, Microsoft Office, Open Office, LiibreOffice, NeoOffice, TelOpèretelOffice (je déconne ! )

Merci de tes conseils et pistes de recherche :-)

dessin(s) plus texte(s) sur un Form

Euh ... ProgElecT ... Je n'ai jamais écrit et dessiné directement sur un Form ... J'ai toujours utilisé des contrôles, par exemple MsFlexGrid pour faire un beau tableau avec genre 12 colonnes, 200 lignes et ascenseur ... Pour créer un beau document d'impression comme je voudrais (titre, tableau, logo, pages numérotées ...), comment dois-je m'y prendre exactement ? J'espère que je n'aurai pas par exemple à "dessiner" les traits du tableau en calculant chaque coordonnée des lignes droites nécessaires !