[AC-2007] Orientation portait et paysage dans un état

[MelaAllIn]

Bonjour,

Petite colle qui m'embête depuis quelques temps...
Je souhaiterais pouvoir créer un état avec la première page en mode portrait, et les suivantes en mode paysage (je ne sais pas combien de pages en mode paysage je peux avoir, j'ai un sous-état avec un nombre d’enregistrements variables, qui peux donc s'éditer sur plusieurs pages...
L'objectif est d'imprimer l'ensemble dans un PDF, donc il y a peut-être une "ruse" à mettre en place avec 2 états, mais je ne sais pas comment m'y prendre...
Est-ce que quelqu'un a déjà solutionné ce problème???

D'avance merci!

MelaAllIn

[ClaudeLELOUP]

Bonjour,

Connais-tu PDFTK et PDFCreator ?

L'idée :

- exécuter un état avec la 1re page en paysage => créer un fichier PDF ;
- exécuter un second état à partir de la page 2 => créer un fichier PDF ;
- exécuter PDFTK pour fusionner les deux fichiers PDF.

[MelaAllIn]

Merci pour cette proposition, c'est en effet vers cela que je me suis orientée.
Je ne connais pas PDFKT, mais par contre, on utilise PDFCreator.
Le problème, c'est que je souhaiterais pouvoir faire toute la manip en automatique en appuyant sur un bouton Edit Etat dans mon formulaire, de manière transparente pour l'utilisateur... Et là, je suis bloquée...
Est-ce que tu pense que c'est faisable?

[ClaudeLELOUP]

Je ne connais pas PDFKT

... mais tu as, sans doute, entendu parler de Google... Installe-le sur ta machine.

je souhaiterais pouvoir faire toute la manip en automatique

... j'avais compris !

Est-ce que tu penses que c'est faisable?

... on est allé sur la lune. Ceci est beaucoup moins compliqué.

Comment te débrouilles-tu avec le code ?

[MelaAllIn]

Merci à toi ClaudeLELOUP. Ce forum est décidément extra !

Google ??? Connait pas !
Je vais donc installer PDFKT sur mon poste. Par contre, faudrait-il l'installer sur le poste de tous les utilisateurs de la base ACCESS ? Si c'est le cas, est-il possible plutôt de partir sur PDFCREATOR. En effet, on a tous PDFCREATOR d'installé par défaut sur nos postes...

Côté code, je suis autodidacte pas très douée... Je sais donc adapter du code existant à mon cas, la plupart du temps, mais de là à en créer moi-même, il y a un monde !

[ClaudeLELOUP]

PDFKT => pour fusionner plusieurs PDF et je sais comment. À ma connaissance, PDFCREATOR ne permet pas de le faire.

Côté code, je suis autodidacte pas très douée

Bienvenue au club.

Je prépare un prototype mais un peu de patience encore.

[ClaudeLELOUP]

Bonsoir,

Voici un exemple de la création d’un fichier PDF contenant :
- un état « PremierePage » en paysage ;
- un état « InventaireVins » en portrait.

Cela implique que l’on dispose de :
- pdftk.exe (dans mon environnement : C:\MesDocuments\APPLICATIONS\ConcaPDF\pdftk.exe)
- PDFCreator avec les paramètres suivants



Voici le code avec des commentaires qui devraient permettre de comprendre ce qui s’y passe.

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
37
38
39
40
41
42
43
44
45
46
47
Option Compare Database
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub btImprimer_Click()
Dim wsn As Object, retour
Dim Pdf1 As String, Pdf2 As String, Arg As String
'Dans le répertoire où sont logés les PDF, supprimer les anciennes versions éventuelles
'Pour le(s) *PremierePage.pdf
Do
   Pdf1 = Dir("c:\PDF\*PremierePage.pdf", vbDirectory) 'mon PDFCreator loge les outputs dans c:\PDF
   If Pdf1 <> "" Then Kill "c:\PDF\" & Pdf1
Loop While Pdf1 <> ""
'Pour le(s) *InventaireVins.pdf
Do
   Pdf2 = Dir("c:\PDF\*InventaireVins.pdf", vbDirectory)
   If Pdf2 <> "" Then Kill "c:\PDF\" & Pdf2
Loop While Pdf2 <> ""
'Pour le Fusion.pdf
Do
   Pdf2 = Dir("c:\PDF\*Fusion.pdf", vbDirectory)
   If Pdf2 <> "" Then Kill "c:\PDF\" & Pdf2
Loop While Pdf2 <> ""
'Changer l'imprimante par défaut et créer les 2 PDF des états
Set wsn = CreateObject("WScript.Network")
wsn.SetDefaultPrinter "PDFCreator"
 DoCmd.OpenReport "PremierePage"
 DoCmd.OpenReport "InventaireVins"
'Rétablir l'imprimante par défaut habituelle
wsn.SetDefaultPrinter "HP LaserJet 1018"
Set wsn = Nothing
'On récupère le chemin des deux PDF que l'on vient de créer
  'il faut cependant laisser le temps de les créer => on temporise jusqu'à ce que le deuxième est créé
Do
  Pdf1 = "c:\PDF\" & Dir("c:\PDF\*PremierePage.pdf", vbDirectory)
  Pdf2 = "c:\PDF\" & Dir("c:\PDF\*InventaireVins.pdf", vbDirectory)
Loop While Pdf2 = "c:\PDF\"
'On crée un fichier exécutable pour lancer Pdftk.exe : adapte le chemin de pdftk.exec
'cf la documentation du programme (pdftk1.txt livré au téléchargement)
Arg = """C:\MesDocuments\APPLICATIONS\ConcaPDF\pdftk.exe"" A=""" & Pdf1 & """ B=""" & Pdf2 & """ output ""c:\pdf\Fusion.pdf"""
Open "c:\Fusion.bat" For Output As #1
Print #1, Arg
Close #1
'temporiser : j'ai constaté qu'il fallait attendre, j'ignore pourquoi.
Sleep 1000 ' 1 sec     à vérifier si suffisant chez toi
retour = Shell("c:\Fusion.bat", vbNormalFocus)
End Sub

Remarques et suggestions bienvenues.

[MelaAllIn]

Super, ClaudeLELOUP !!!
Je vais tester cela et voir comment l'adapter à mon cas, et je reviens vers le forum pour donner des news !
Merci beaucoup pour ton aide !
MelaAllIn