J'ai un rapport qui m'imprime une facture en 6 exemplaires identiques.
Je souhaiterai pouvoir imprimer egalement
- "ORIGINAL" sur le 1er exemplaire
- "2nd ORIGNAL" SUR LE 2èME
- "PINK COPY" SUR LE 3EME
- "BLEU COPY" SUR LE 4EME
- "FILING COPY" SUR LE 5EME
- "FOR PERSONAL USE" SUR LE 6EME
Rien trouve (ou mal cherche) sur le forum dans impression facture !!!
Voici le code genere par le bouton et deja qq peu modifie par vos soins
Merci pour l'aide
----
Private Sub Print_Invoice_offset_Click()
' This code created by Command Button Wizard.
On Error GoTo Err_Print_Invoice_offset_Click
Dim strDocName As String
strDocName = "Invoice Offset"
' Print Invoice report, using Invoice Filter query to print
' invoice for current order.
Err_Print_Invoice_offset_Click:
' If action was cancelled by the user, don't display an error message.
Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
Resume Exit_Print_Invoice_offset_Click
Else
MsgBox Err.Description
Resume Exit_Print_Invoice_offset_Click
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Charles ERNST
Si vous faites DoCmd.PrintOut , , , , 6, vous aurez 6 exemplaires identiques car vous ne pouvez pas intervenir sur chaque exemplaire. Une solution : faire un fichier avec N° de facture et texte des exemplaires que vous lierez alors avec votre requête d'impression des factures
"tomyboy" a écrit dans le message de news:
Bjr et meilleurs voeux a tous.
J'ai un rapport qui m'imprime une facture en 6 exemplaires identiques. Je souhaiterai pouvoir imprimer egalement - "ORIGINAL" sur le 1er exemplaire - "2nd ORIGNAL" SUR LE 2èME - "PINK COPY" SUR LE 3EME - "BLEU COPY" SUR LE 4EME - "FILING COPY" SUR LE 5EME - "FOR PERSONAL USE" SUR LE 6EME
Rien trouve (ou mal cherche) sur le forum dans impression facture !!! Voici le code genere par le bouton et deja qq peu modifie par vos soins Merci pour l'aide ---- Private Sub Print_Invoice_offset_Click()
' This code created by Command Button Wizard. On Error GoTo Err_Print_Invoice_offset_Click
Dim strDocName As String
strDocName = "Invoice Offset" ' Print Invoice report, using Invoice Filter query to print ' invoice for current order.
Err_Print_Invoice_offset_Click: ' If action was cancelled by the user, don't display an error message. Const conErrDoCmdCancelled = 2501 If (Err = conErrDoCmdCancelled) Then Resume Exit_Print_Invoice_offset_Click Else MsgBox Err.Description Resume Exit_Print_Invoice_offset_Click End If
End Sub ----
Si vous faites DoCmd.PrintOut , , , , 6, vous aurez 6 exemplaires identiques
car vous ne pouvez pas intervenir sur chaque exemplaire.
Une solution : faire un fichier avec N° de facture et texte des exemplaires
que vous lierez alors avec votre requête d'impression des factures
"tomyboy" <mrossier@mscgva.ch> a écrit dans le message de news:
73fd944a.0501040148.2b7433be@posting.google.com...
Bjr et meilleurs voeux a tous.
J'ai un rapport qui m'imprime une facture en 6 exemplaires identiques.
Je souhaiterai pouvoir imprimer egalement
- "ORIGINAL" sur le 1er exemplaire
- "2nd ORIGNAL" SUR LE 2èME
- "PINK COPY" SUR LE 3EME
- "BLEU COPY" SUR LE 4EME
- "FILING COPY" SUR LE 5EME
- "FOR PERSONAL USE" SUR LE 6EME
Rien trouve (ou mal cherche) sur le forum dans impression facture !!!
Voici le code genere par le bouton et deja qq peu modifie par vos soins
Merci pour l'aide
----
Private Sub Print_Invoice_offset_Click()
' This code created by Command Button Wizard.
On Error GoTo Err_Print_Invoice_offset_Click
Dim strDocName As String
strDocName = "Invoice Offset"
' Print Invoice report, using Invoice Filter query to print
' invoice for current order.
Err_Print_Invoice_offset_Click:
' If action was cancelled by the user, don't display an error message.
Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
Resume Exit_Print_Invoice_offset_Click
Else
MsgBox Err.Description
Resume Exit_Print_Invoice_offset_Click
End If
Si vous faites DoCmd.PrintOut , , , , 6, vous aurez 6 exemplaires identiques car vous ne pouvez pas intervenir sur chaque exemplaire. Une solution : faire un fichier avec N° de facture et texte des exemplaires que vous lierez alors avec votre requête d'impression des factures
"tomyboy" a écrit dans le message de news:
Bjr et meilleurs voeux a tous.
J'ai un rapport qui m'imprime une facture en 6 exemplaires identiques. Je souhaiterai pouvoir imprimer egalement - "ORIGINAL" sur le 1er exemplaire - "2nd ORIGNAL" SUR LE 2èME - "PINK COPY" SUR LE 3EME - "BLEU COPY" SUR LE 4EME - "FILING COPY" SUR LE 5EME - "FOR PERSONAL USE" SUR LE 6EME
Rien trouve (ou mal cherche) sur le forum dans impression facture !!! Voici le code genere par le bouton et deja qq peu modifie par vos soins Merci pour l'aide ---- Private Sub Print_Invoice_offset_Click()
' This code created by Command Button Wizard. On Error GoTo Err_Print_Invoice_offset_Click
Dim strDocName As String
strDocName = "Invoice Offset" ' Print Invoice report, using Invoice Filter query to print ' invoice for current order.
Err_Print_Invoice_offset_Click: ' If action was cancelled by the user, don't display an error message. Const conErrDoCmdCancelled = 2501 If (Err = conErrDoCmdCancelled) Then Resume Exit_Print_Invoice_offset_Click Else MsgBox Err.Description Resume Exit_Print_Invoice_offset_Click End If
End Sub ----
Frayer
Merci Charles Mais n'existe t il pas une solution avec un compteur, comme pour numeroter les lignes, lequel pourrait etre insere avant la cde DoCmd.PrintOut , , , , 6 et qui indiquerai sur quelle position du compteur doivent etre imprimees ces annotations ? Mci d'avance
Si vous faites DoCmd.PrintOut , , , , 6, vous aurez 6 exemplaires identiques car vous ne pouvez pas intervenir sur chaque exemplaire. Une solution : faire un fichier avec N° de facture et texte des exemplaires que vous lierez alors avec votre requête d'impression des factures
"tomyboy" a écrit dans le message de news:
Bjr et meilleurs voeux a tous.
J'ai un rapport qui m'imprime une facture en 6 exemplaires identiques. Je souhaiterai pouvoir imprimer egalement - "ORIGINAL" sur le 1er exemplaire - "2nd ORIGNAL" SUR LE 2èME - "PINK COPY" SUR LE 3EME - "BLEU COPY" SUR LE 4EME - "FILING COPY" SUR LE 5EME - "FOR PERSONAL USE" SUR LE 6EME
Rien trouve (ou mal cherche) sur le forum dans impression facture !!! Voici le code genere par le bouton et deja qq peu modifie par vos soins Merci pour l'aide ---- Private Sub Print_Invoice_offset_Click()
' This code created by Command Button Wizard. On Error GoTo Err_Print_Invoice_offset_Click
Dim strDocName As String
strDocName = "Invoice Offset" ' Print Invoice report, using Invoice Filter query to print ' invoice for current order.
Err_Print_Invoice_offset_Click: ' If action was cancelled by the user, don't display an error message. Const conErrDoCmdCancelled = 2501 If (Err = conErrDoCmdCancelled) Then Resume Exit_Print_Invoice_offset_Click Else MsgBox Err.Description Resume Exit_Print_Invoice_offset_Click End If
End Sub ----
Merci Charles
Mais n'existe t il pas une solution avec un compteur, comme pour numeroter
les lignes, lequel pourrait etre insere avant la cde DoCmd.PrintOut , , , , 6
et qui indiquerai sur quelle position du compteur doivent etre imprimees ces
annotations ?
Mci d'avance
Si vous faites DoCmd.PrintOut , , , , 6, vous aurez 6 exemplaires identiques
car vous ne pouvez pas intervenir sur chaque exemplaire.
Une solution : faire un fichier avec N° de facture et texte des exemplaires
que vous lierez alors avec votre requête d'impression des factures
"tomyboy" <mrossier@mscgva.ch> a écrit dans le message de news:
73fd944a.0501040148.2b7433be@posting.google.com...
Bjr et meilleurs voeux a tous.
J'ai un rapport qui m'imprime une facture en 6 exemplaires identiques.
Je souhaiterai pouvoir imprimer egalement
- "ORIGINAL" sur le 1er exemplaire
- "2nd ORIGNAL" SUR LE 2èME
- "PINK COPY" SUR LE 3EME
- "BLEU COPY" SUR LE 4EME
- "FILING COPY" SUR LE 5EME
- "FOR PERSONAL USE" SUR LE 6EME
Rien trouve (ou mal cherche) sur le forum dans impression facture !!!
Voici le code genere par le bouton et deja qq peu modifie par vos soins
Merci pour l'aide
----
Private Sub Print_Invoice_offset_Click()
' This code created by Command Button Wizard.
On Error GoTo Err_Print_Invoice_offset_Click
Dim strDocName As String
strDocName = "Invoice Offset"
' Print Invoice report, using Invoice Filter query to print
' invoice for current order.
Err_Print_Invoice_offset_Click:
' If action was cancelled by the user, don't display an error message.
Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
Resume Exit_Print_Invoice_offset_Click
Else
MsgBox Err.Description
Resume Exit_Print_Invoice_offset_Click
End If
Merci Charles Mais n'existe t il pas une solution avec un compteur, comme pour numeroter les lignes, lequel pourrait etre insere avant la cde DoCmd.PrintOut , , , , 6 et qui indiquerai sur quelle position du compteur doivent etre imprimees ces annotations ? Mci d'avance
Si vous faites DoCmd.PrintOut , , , , 6, vous aurez 6 exemplaires identiques car vous ne pouvez pas intervenir sur chaque exemplaire. Une solution : faire un fichier avec N° de facture et texte des exemplaires que vous lierez alors avec votre requête d'impression des factures
"tomyboy" a écrit dans le message de news:
Bjr et meilleurs voeux a tous.
J'ai un rapport qui m'imprime une facture en 6 exemplaires identiques. Je souhaiterai pouvoir imprimer egalement - "ORIGINAL" sur le 1er exemplaire - "2nd ORIGNAL" SUR LE 2èME - "PINK COPY" SUR LE 3EME - "BLEU COPY" SUR LE 4EME - "FILING COPY" SUR LE 5EME - "FOR PERSONAL USE" SUR LE 6EME
Rien trouve (ou mal cherche) sur le forum dans impression facture !!! Voici le code genere par le bouton et deja qq peu modifie par vos soins Merci pour l'aide ---- Private Sub Print_Invoice_offset_Click()
' This code created by Command Button Wizard. On Error GoTo Err_Print_Invoice_offset_Click
Dim strDocName As String
strDocName = "Invoice Offset" ' Print Invoice report, using Invoice Filter query to print ' invoice for current order.
Err_Print_Invoice_offset_Click: ' If action was cancelled by the user, don't display an error message. Const conErrDoCmdCancelled = 2501 If (Err = conErrDoCmdCancelled) Then Resume Exit_Print_Invoice_offset_Click Else MsgBox Err.Description Resume Exit_Print_Invoice_offset_Click End If
