Access-3stone

Visites

visiteurs

visiteurs en ligne

Archives du forum - Problèmes Access des débutants - Sujet n°4

Sujet n°4

Décaller les étiquettes à imprimer
par TheLeguiTouch le 11/01/2006 : 15:52

Bonjour, j'ai un problème avec ce code:

Démarrer l'impression des étiquettes à un endroit précis de la page

<> Lorsque l'on utilise des "pages d'étiquettes" survient rapidement la nécessité de démarrer l'impression des étiquettes à un endroit précis de la page....

La méthode la plus simple conciste à ajouter un peu de code dans les événements de l'état, comme indiqué ci-dessous.

' Mettre dans la partie déclaration de l'état

Public intToSkip As Integer

Public intSkipped As Integer

Ou est-ce que je peux trouver la partie "déclaration de l'état"??
Merci

Réponse n° 1

par 3stone le 11/01/2006 : 16:16

Bonjour,

C'est tout simplement tout en haut de la page dans l'éditeur VBE, au dessus de la première Sub et juste en dessous de :

Option Compare Database
Option Explicit

' donc tu déclare les variables ici

A+
Pierre

Réponse n° 2

par TheLeguiTouch le 11/01/2006 : 16:31

Merci pour cette réponse très rapide!!
Voici ce que j'ai en code pour mon état et quand je le lance, il me demande de combien je veux décaler et après...rien, une page blanche???

Option Compare Database
Option Explicit
Public intToSkip As Integer

Public intSkipped As Integer
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)

    If intSkipped < intToSkip Then

        Me.NextRecord = False

        Me.PrintSection = False

        intSkipped = intSkipped + 1

        Me.Section(acDetail).Visible = False

    Else

        Me.Section(acDetail).Visible = True

    End If

End Sub

Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub PiedÉtat_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub Report_Open(Cancel As Integer)

    Dim intEttiket As String

    intEttiket = InputBox("Combien d'étiquettes vides souhaitez-vous ? : ")

    If IsNull(intEttiket) Then

        Cancel = True

    Else

        intToSkip = Val(intEttiket)

    End If

End Sub

Réponse n° 3	par Theleguitouch le 11/01/2006 : 16:47
Si je mets 0 comme valeur d'étiquettes vides, alors il m'affiche correctement mes étiquettes? Ou est l'erreur?

Réponse n° 4

par 3stone le 11/01/2006 : 16:51

Tu as des sections avec des "Sub" vides, sans code, pourquoi ?

Il faudrait commencer par compiler ce code (menu Débogage, Compliler...) pour vérifier les erreurs éventuelles.

Dans la fenêtre des propriétés de l'état, onglets "Evénements", il faut que tu trouve les 2 appels aux [Procédure évenementielle] sur ouverture et sur fermeture.

L'autre appel à la sub se fait dans l'évenement "Sur impression" de la section détail.

Vérifie pour avoir ces 3 appels aux procédure évenementielles (aux Sub en fait) et tout ira bien.

Faire attention aussi aux noms des sections.

Selon ton Access, les noms seront écrit avec ou sans accents cry

Pierre.

Réponse n° 5

par 3stone le 11/01/2006 : 16:55

Nos messages ce sont croisés...

Tu veux dire que cela fonctionne pas lorsque tu ne saisis rien lors de la question, mais que cela fonctionne parfaitement à partir du moment ou tu saisis un nombre ?

Réponse n° 6	par TheLeguiTouch le 11/01/2006 : 16:58
Non, c'est le contraire, si je tape 0 ou cancel, alors il m'affiche correctement mon état. Autrement, la page affichée est blanche!

Réponse n° 7

par 3stone le 11/01/2006 : 17:09

As-tu compilé le code comme demandé ?

Cela ne peut être qu'une erreur de frappe ou d'orthographe. Ce code fonctionne parfaitement, hormis les problèmes de noms cités plus haut.

Pierre

Réponse n° 8	par TheLeguiTouch le 11/01/2006 : 17:18
Oui, j'ai compilé et il me supprime chaque fois la procédure "onclose" Il n'y a pas de faute, c'est un copier-coller. J'ai réessayé en supprimant tout dans vba mais c'est chaque fois pareil. :cry:

[ 1 2 3 4 ]

[ Retour à la liste des sujets ]

Recherche

Préférences

Se reconnecter
---

1 membre

Connectés :

( personne )