automatisch bestanden prenten

[Jacq v d Heuvel]

IK wil steunkaarten afdrukken met een nummer

alles gaat perfect, behalve het automatisch printen
ik kan wel handmatig, door op het printericoontje te klikken, afdrukken, maar het zou "professioneler" zijn als dit automatisch zou gaan

Sub PrintJobSheet()
startjob = InputBox("Nummering vanaf")
endjob = InputBox("nummering tot en met")
For thisjob = startjob To endjob
Range("I2").Select
ActiveCell.FormulaR1C1 = thisjob
ActiveWindow.SelectedSheets.PrintOut
Next
End Sub

 

[VenA]

Het zou professioneler zijn als je de code tussen codetags plaatst. Als het steeds dezelfde tabjes zijn die je wil afdrukken dan kan het zo

Sub VenA()
For j = InputBox("Nummering vanaf") To InputBox("nummering tot en met")
  For Each sh In Sheets(Array("Sheet1", "Sheet3"))
    sh.[I2] = j
    sh.PrintPreview
  Next sh
Next j
End Sub)

 

[Jacq v d Heuvel]

atomatisc excelbestanden printen

geachte

met het programmaatje wat ik gemaakt heb gebeurt iets merkwaardigs
Het geeft aan dat de gegevens naar de printer gestuurd worden maar er komen geen afdruk gegevens mee

ik kan wel een voor een printen als ik op het printer-icoontje klik

J v d Heuvel

 

[VenA]

't is allemaal wat. Er is geen programmaatje te vinden (lees bestand te vinden) waarom het allemaal niet werkt. Ik mag toch aannemen dat je zelf het verschil tussen .PrintPreview en .Printout zelf wel ziet?