| | auteur : Papy Turbo | - voir Comment insérer un n° de ligne dans un état (voir lien en bas) pour ajouter un contrôle [NoLigne],
- vous pouvez le masquer si vous ne l'utilisez pas (onglet Format, Visible = Non),
- dans l'événement Sur impression de la section Détail (=Section(0)), copier :
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
If ([NoLigne] Mod 2) = 0 Then
Section(0).BackColor = vbWhite
Else
Section(0).BackColor = 13434879
End If
End Sub
|
Bien entendu, vous pouvez remplacer le "Mod 2" par "Mod 3" pour changer de couleur 1 ligne sur 3 seulement…
Pour trouver d'autres couleurs, voir Comment déterminer un code couleur quelconque dans Access (lien ci-dessous).
|
lien : Comment insérer un n° de ligne dans un état ?
lien : Comment déterminer un code couleur quelconque dans Access ?
|
| | auteur : Khany | Ce code permet d'utiliser les états existants sous Access. Cochez les références à Access dans le projet Visual Basic
et copiez le code approprié.
Ouverture de la base de données Access : Dim MaDbMat As String
Dim MesEtats As Access.Application
MaDbMat = CurrentProject.Path & "\MaBase.mdb"
Set MesEtats = New Access.Application
MesEtats.OpenCurrentDatabase MaDbMat, False
|
Pour imprimer un état sans le visualiser : MesEtats.DoCmd.OpenReport "NomdeMonEtat", acViewNormal
|
Pour prévisualiser un état en mode plein écran : MesEtats.Visible = True
MesEtats.DoCmd.OpenReport "NomdeMonEtat", acViewPreview
MesEtats.DoCmd.Maximize
|
Pour le mode Design en plein écran : MesEtats.Visible = True
Mesetats.DoCmd.OpenReport "NomdeMonEtat", acViewDesign
MesEtats.DoCmd.Maximize
|
|
lien : FAQ VB
|
| | auteur : tee_grandbois | Allez en mode création de votre état et faites Fichier/Mise en Page puis dans l'onglet Page cliquer sur Utiliser une imprimante spécifique et cliquez sur le bouton Imprimantes pour pouvoir la choisir et puis OK après votre choix.
|
| | auteur : tee_grandbois | Dans un module, écrire la fonction suivante : Public sub fgImprimeCopiesEtat(stEtat As String, itCopies As Integer)
DoCmd.OpenReport stEtat, acViewPreview
DoCmd.PrintOut acPages, , , , itCopies
DoCmd.Close acReport, stEtat
End sub
|
Utilisation :
Sur un bouton imprimer d'un formulaire :
fgImprimeCopiesEtat("MonEtat",3)
|
Ceci imprime trois exemplaires du même état.
|
| | auteur : FRED.G | Il faut utiliser la propriété Répéter section de l'en-tête de groupe concerné.
|
| | auteur : argyronet |
Sur une Jet d'encre, il faut prévoir une marge de bas d'au moins 1.5 cm sans quoi une page blanche survient.
Vous ne rencontrerez pas ce problème avec une laser.
Donc à vous de réduire les contrôles de votre état de manière à ce qu'il n'y ait plus qu'une page et d'accorder vos marges en conséquence.
Si vous voulez connaître la tolérance maxi de vos marges allez dans Word, prenez un document vierge, mettez toutes les marges à zéro et validez.
Là, Word va vous proposer de corriger, prenez ces valeurs sur un bout de papier et tu les appliques à ton état.
Il est aussi envisageable que vous ayez un saut de page invisible ou une propriété de section qui possède un saut de page.
|
lien :  Comment éviter les pages blanche lorsque j'imprime un état ?
|
| | auteur : loufab |
1) créer un compteur dans la section détail
Contrôle texte
Nom : compteur
Source contrôle : =1
Cumul : en continue
2) créer un regroupement sur l'enregistrement
Menu Affichage/Trier regrouper
insérer le champ clef unique
Entête de groupe : non
Pied de groupe : oui
3) dans le pied de groupe réduit au maximum de sa hauteur, insérer un saut de page.
Cliquer sur la zone pied de groupe et dans la propriété Au formatage
ouvrir une Procédure
tapez-y le code suivant :
Private Sub PiedGroupe0_Format(Cancel As Integer, FormatCount As Integer)
If Me.Compteur Mod 2 = 0 Then
Me.PrintSection = True
Else
Me.PrintSection = False
End If
End Sub
|
Chaque fois que le compteur aura un valeur paire (donc multiple de 2) le reste sera 0 et on imprime la section donc le saut de page.
|
| | auteur : smicky77 |
- Allez dans paramètres / imprimantes
- ajoutez une nouvelle imprimante
- prenez n'importe laquelle
- donnez le port LPT1
- déclarez par défaut ou pas
- ne testez pas de page d'impression
Vous devez maintenant pouvoir travailler les états sans aucun problème.
|
| | auteur : armagued |
Ce phénomène s'observe lorsque la dimension de l'état ne correspond pas à celle du papier.
à vérifier :
- taille et orientation du papier
- taille des marges
|
| | auteur : Maxence HUBICHE |
Ceci par exemple peut servir lorsque vous imprimez un document en pdf, celà découpe votre document page par page.
Dim i As Long
DoCmd.OpenReport "Commandes", acViewPreview
For i = 1 To Reports("Commandes").Pages
DoCmd.PrintOut acPages, i, i
Next
|
|
| | auteur : Papy Turbo |
En utilisant la boîte de dialogue du menu Affichage --> Trier et regrouper,
dans les propriétés de cet entête de groupe,
mettre la propriété Section insécable = Avec premier détail
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2004
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|
