you would have to write a printer driver to do this. I have no clue how, but i'm 99% sure it can't be done in VB.

I'd search the web for something like this(sounds pretty common to me)