The barcode does not change in serial printing via VBALink

I would like to print barcodes in a loop with sequential numbers. On the screen the barcode is always correct, but in the print the serial number is not taken over. What can I do?
It seems the barcode is not updated. This may be a timing issue. You can make Excel to draw a new barcode by simply manipulate it, e.g. the size:

Temp = Barcode1.Width
Barcode1.Width = 10
Barcode1.Width = Temp
Well, this simply reduces the size of the control and the set it back to the original values. This forces Excel to redraw the control, and it is done correct. USe this code directly before your print command.