Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo

precedent    sommaire    suivant   


Comment imprimer un état avec une couleur différente pour les lignes paires/impaires ?
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) 
     'utiliser Détail_Print, PAS Détail_Format qui est appelé PLUSIEURS fois        
     If ([NoLigne] Mod 2) = 0 Then         
          Section(0).BackColor = vbWhite     
     Else         
          Section(0).BackColor = 13434879 
          'jaune pâle : joli et discret     
     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 ?

Comment imprimer, visualiser, modifier un état réalisé sous Access depuis VB ?
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

Imprimer un état sur une imprimante précise, non celle par défaut
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.


Comment imprimer un état en plusieurs exemplaires ?
auteur : tee_grandbois
Dans un module, écrire la fonction suivante :
Public sub fgImprimeCopiesEtat(stEtat As String, itCopies As Integer)
 ' stEtat   : nom de l'état
 ' itCopies : nombre de copies
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.


Comment faire pour qu'un nom de groupe dans un état s'écrive aussi sur la/les page(s) suivante(s) ?
auteur : FRED.G
Il faut utiliser la propriété Répéter section de l'en-tête de groupe concerné.


Comment empêcher l'impression d'une page blanche numérotée avant que mon travail ne sorte ?
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 : faq Comment éviter les pages blanche lorsque j'imprime un état ?

Comment imprimer un nombre voulu d'enregistrements dans un Etat ?
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.


Comment créer/consulter un état sans avoir d'imprimante ?
auteur : smicky77
  1. Allez dans paramètres / imprimantes
  2. ajoutez une nouvelle imprimante
  3. prenez n'importe laquelle
  4. donnez le port LPT1
  5. déclarez par défaut ou pas
  6. ne testez pas de page d'impression
Vous devez maintenant pouvoir travailler les états sans aucun problème.


Comment éviter les pages blanche lorsque j'imprime un état ?
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

Comment imprimer un état page par page ?
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 

Comment éviter qu'access n'imprime l'entête de groupe en bas de page
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


precedent    sommaire    suivant   

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.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com