VBA - Print until criteria is met

[Bajjonetaz]

Hi All,

Im looking for help in creating a VBA for this excelfile.

I want to with a quick command run a print of all items in the "data" sheet, up until a empty row appears.
So it would print 1,2,3,4 etc until the empty cell popups.

In the case attached would be cell "B21"

Can someone assist?

 

[DanteAmor]

Hi @Bajjonetaz . Welcome to the MrExcel forum. Please accept my warmest greetings and sincere hope that all is well.

Set the name of your sheet to print in this line of the macro:

With Sheets("printsheet")

Put the following macro in a module.

Sub MacroToPrint()
  Dim i As Long
  Dim shD As Worksheet
 
  Set shD = Sheets("Data")
 
  For i = 2 To shD.Range("B:B").Find("*", , xlValues, xlPart, xlByRows, xlPrevious).Row
    With Sheets("printsheet")    'Fit the name of your sheet to print
      .Range("I3").Value = shD.Range("A" & i).Value
      .PrintOut
    End With
  Next
End Sub

--------------
Let me know the result and I'll get back to you as soon as I can.
Cordially
Dante Amor
--------------

 

[Bajjonetaz]

@DanteAmor Thanks for the quick help, it worked amazingly!

is there someway we can put a delay of maybe 5sec between each print, because the QR codes didn't have time to re-generate between each print

 

[Bajjonetaz]

Solved it
Inserted this in the code
Application.Wait (Now + TimeValue("0:00:10"))

Thanks for your assistance

 

[DanteAmor]

Im glad to help you.

The MrExcel community enjoys helping, now there is an option to mark the answer as a solution, marking it to the right of the post..

Please, If my answer helped you, click like and do not forget to mark my post as a solution.

Thanks
Dante Amor

 

[Bajjonetaz]

Hi again!
The googleapi that I was using to create QR codes inbetween prints, that service has now been shutdown.

So Ive changed from using a macro to the =image() function to retrieve the QR code. But because of this change the printsheet macro no longer supports the change of QR code inbetween the change of rows to print.
How can I change that the printsheet macro recognizes and updates the =image() function through the I3 cell inbetween prints?

Any ideas?

 

[DanteAmor]

Hi @Bajjonetaz, I hope you are well..

How can I change that the printsheet macro recognizes and updates the =image() function through the I3 cell inbetween prints?

I don't know how you have that image.
It seems to me that it is a different topic than the original post, I recommend that you create a new thread and include all possible information about your image, if possible share your file and paste the link in the new thread.
That way you can get more help from different people.