Microsoft 365 Impression de code barre

S

sam1980

XLDnaute Nouveau
Bonjour à tous ,

voilà j'ai un script Vba qui me permet de générer et d'imprimer des code barre.
Alors quand je lance la génération l'impression se lance automatiquement selon la quantité demandé.
Mais si jamais je me trompe dans la quantité je ne peux plus annuler l'impression et chaque code barre s'imprime sur 1 feuille A4.

ce que je voudrais c'est imprimé plusieurs code barre sur une page 2 ou 3 ensuite avoir la possibilté d'avoir un bouton pour annulé impression en cas d'erreur.

Voici le code :

Sub Générationx10STRADIVALTO()

Dim Nom As String
Nom = InputBox("Saisissez votre 1er numéro de pièce : ")
Worksheets("Feuil2").Range("F1").Value = Nom
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("STRADIVALTO").Select
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+1"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=True
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+2"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+3"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+4"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+5"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+6"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+7"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+8"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+9"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "=RC[1]+1-1"
Range("E1").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub


En vous remerciant d'avance.

Sami.
 
Trier par date Trier par votes
S

sam1980

XLDnaute Nouveau
sam1980 à dit:
Bonjour à tous ,

voilà j'ai un script Vba qui me permet de générer et d'imprimer des code barre.
Alors quand je lance la génération l'impression se lance automatiquement selon la quantité demandé.
Mais si jamais je me trompe dans la quantité je ne peux plus annuler l'impression et chaque code barre s'imprime sur 1 feuille A4.

ce que je voudrais c'est imprimé plusieurs code barre sur une page 2 ou 3 ensuite avoir la possibilté d'avoir un bouton pour annulé impression en cas d'erreur.

Voici le code :

Sub Générationx10STRADIVALTO()

Dim Nom As String
Nom = InputBox("Saisissez votre 1er numéro de pièce : ")
Worksheets("Feuil2").Range("F1").Value = Nom
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("STRADIVALTO").Select
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+1"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=True
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+2"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+3"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+4"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+5"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+6"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+7"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+8"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+9"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "=RC[1]+1-1"
Range("E1").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub


En vous remerciant d'avance.

Sami.
Cliquez pour agrandir...

Bonjour à tous ,

Par rapport à ma demande est-ce que vous savez ce qu'il faut que je modifie pour que je puisses imprimer plusieurs code barre sur 1 feuille A4, si possible au moins 3.

Merci pour votre aide.

Sami
 
Vote positif 0 Vote négatif

Discussions similaires

A
  • Résolu(e)
XL 2010 Impression par VBA
Réponses
4
Affichages
539
Appo1985
A
P
  • Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
415
job75
job75
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
AtTheOne
L
  • Question
Autres [ RESOLU ] Impression PDF via VBA
Réponses
5
Affichages
859
lechti31
L
Mafalda78
  • Question
Microsoft 365 Exporter en PDF avec une mise en page automatique via un bouton
Réponses
8
Affichages
561
patricktoulon
patricktoulon
B
  • Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
493
Oneida
Oneida
M
  • Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
445
marie3107
M
kadelmalin
  • Question
XL 2010 Impression plusieurs plages
Réponses
4
Affichages
546
kadelmalin
kadelmalin
D
  • Question
XL 2013 VBA pour une impression recto verso - petit cote
Réponses
4
Affichages
873
david54520
D
O
  • Question
XL 2016 Erreur d'exécution 32809 Erreur définie par l'application ou par l'objet
Réponses
0
Affichages
306
Oddoneju
O

Membres actuellement en ligne

12 membres et 348 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 488
Messages
2 110 132
Membres
110 679
dernier inscrit
lpierr