Impression à partir d'Excel VBA

En essayant d'imprimer la même feuille excel un certain nombre de fois (e.g 100) avec une cellule incrémenté à chaque fois (e.g cellule 4F).

J'ai essayé d'utiliser

Workbook_BeforePrint

pour incrémenter la cellule, mais il nécessite une interaction avec le "sélectionner l'imprimante" boîte de dialogue pour chaque feuille imprimée.

Serait-il possible de faire quelque chose comme:

a = getIntegerUserInput()
for i in 1..a
   increment 4F with one
   print the sheet suppressing the "select printer" dialog
end for

Acclamations

InformationsquelleAutor abcde123483 | 2011-10-06
  1. 4

    Avez-vous sélectionné une imprimante par défaut?

    J'ai utilisé ceci:

    Sub printinc()
For i = 0 To 3
Range("A1").Value = Range("A1").Value + 1
Sheets("Sheet1").PrintOut
Next
End Sub

    De l'imprimer en 4 exemplaires incrémentation de la valeur de la cellule A1 à chaque fois sans m'invite pour les réglages, ou de sélection de l'imprimante.

    InformationsquelleAutor Seyren
  2. 3

    Pour imprimer une feuille, vous pouvez utiliser ce genre de code (en supposant que vous savez sur l'imprimante que vous souhaitez imprimer) à l'aide de PrintOut:

    Sub PrintFile()
    Dim curPrinter As String
    curPrinter = Application.ActivePrinter
    Application.ActivePrinter = "Myprinter"
    ActiveWindow.SelectedSheets.PrintOut 
    Application.ActivePrinter = curPrinter
End Sub

    Par conséquent, vous pouvez créer une boucle pour augmenter une cellule et imprimer votre feuille de calcul avec l'incrément.

    Par la manière, vous pouvez le faire en utilisant Before_print et si vous ne voulez pas afficher la boîte de dialogue imprimer, vous pouvez définir Cancel pour Faux tout en appelant la procédure Private Sub Workbook_BeforePrint( Cancel As Boolean) (réf sur MSDN)

    Vous pouvez également lire ce fil pour empêcher l'affichage de la boîte de dialogue d'impression: Comment éviter la boîte de dialogue d'impression lors de l'utilisation d'Excel méthode PrintOut.

    [MODIFIER] voir Seyren de réponse pour une solution de travail sur ce que vous voulez. Pourtant, prendre soin sur les performances si vous vraiment voulais boucle 100 fois.

    InformationsquelleAutor JMax
  3. 2
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    '//supress recursion into this event when we print
    Application.EnableEvents = False
    '//increment
    If Not IsNumeric(ActiveSheet.Range("A1").Value) Then ActiveSheet.Range("A1").Value = 0
    ActiveSheet.Range("A1").Value = ActiveSheet.Range("A1").Value + 1
    '//do a default print
    ActiveSheet.PrintOut
    Application.EnableEvents = True
    '//prevent the default print
    Cancel = True
End Sub
    InformationsquelleAutor Alex K.