Comment réinitialiser les modifications apportées à l'objet Application.Printer

Traductions disponibles Traductions disponibles
Numéro d'article: 284286 - Voir les produits auxquels s'applique cet article
Modéré : nécessite macro base, codage et compétences de l'interopérabilité.

Cet article s'applique à une base de données Microsoft Access (.accdb and.mdb) et à un projet Microsoft Access (.adp).
Agrandir tout | Réduire tout

Résumé

Il explique comment restaurer l'objet Application.Printer ses paramètres par défaut une fois que vous avez personnalisé les.

Plus d'informations

Le code exemple suivant montre comment imprimer l'état catalogue de la base de données exemple Les Comptoirs. Elle modifie certains paramètres d'imprimante par défaut d'et lorsque le travail d'impression est terminé, le code réinitialisée l'imprimante pour les paramètres par défaut.

Microsoft fournit des exemples de programmation pour illustration uniquement, sans garantie explicite ou implicite. Cela inclut, mais n'est pas limité aux garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils qui sont utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne sont pas modifier les exemples en vue de fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.

note Non pour toutes les imprimantes et pilotes d'imprimante prennent en charge la fonctionnalité dans l'exemple de code suivant.

note Dans Microsoft Access 2007, vous devez uniquement remplacer le nom du rapport « catalogue » avec un état disponible pour l'exemple de code

Private Sub PrintCatalogReport()
    Dim rpt As Report
    
    Application.Printer = Application.Printers(0)
    
    DoCmd.OpenReport "Catalog", acViewPreview, , , acHidden
    Set rpt = Reports!Catalog
    
    With rpt.Printer
        .BottomMargin = 720
        .Copies = 2
        .Duplex = acPRDPVertical 'Double sided
        .PaperBin = acPRBNLargeCapacity
    End With
    DoCmd.OpenReport "Catalog", acViewNormal
    DoCmd.Close acReport, "Catalog", acSaveNo
    
    Set Application.Printer = Nothing
End Sub
				
une fois le travail d'impression est terminée, ce code va effacer les paramètres actuels et rétablir l'objet Application.Printer global à l'imprimante d'application par défaut.

Propriétés

Numéro d'article: 284286 - Dernière mise à jour: vendredi 15 juin 2007 - Version: 6.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Office Access 2007
  • Microsoft Office Access 2003
  • Microsoft Access 2002
Mots-clés : 
kbmt kbprogramming kbsettings kbprinters kbreport kbprint kbhowto KB284286 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 284286
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com