How to print multiple pages from a vlookupset

Hi, is there any way to assign a macro button so that when i click it it: print page 1 to page x according to the vlookup datasets?

I have a datapage with all my clients. For each client I have to make an invoice which I compose with the VLookupfunction.
Right now: I have to type client 15, change to the invoice page, press print and go back again to the first page, to start with nr 16.
This takes a lot of time.

I'm looking for a macro that lets me print the invoice of all clients between 15-45 for instance...

I'm a total newbie in the world of macros and have but a little knowledge of excel :-)



Thx for the help

Pablo1976

Hi Pablo1976,

You can use a loop to do such thing, post a copy of your file but remove all sensitive data but keep the file structure & format to provide you with the proper code ...

Please Login or Register  to view this content.

Hi Nankw83

Thx for wanting to take a look at this. Already takes me a long time...
Always difficult when youre new at things...

Anywho you should be able to see the file...

Ok thx I managed to run the macro.

It printed 10 pages, but they were all the same clients invoice, times 10.
I would of course need the invoice of each client, one time only.

Second question: this macro prints all items in the list. Can you adjust the code that you can print from client 15-23 for instance...

Grtz

Pablo1976

Ok, this seems to have done its job ! Wow, this is going to save me lots of time :-)

Thx a lot NanKW83 for your time and effort

I have an additional question to this thread...

Earlier on I wanted a formula that would allow me to print a number of documents using a vlookup function. Works like a charm, still use it todat...


Sub test()

txt$ = InputBox("Enter # From & To separated by - like below" & vbLf & "1-5")

For x& = Split(txt, "-")(0) To Split(txt, "-")(1)
Sheets("Blad1").[A59].Value = x
Sheets("Factuur Voorbeeld").PrintOut
Next

End Sub


My question: would it also be possible to 'print' these documents to pdf (instead of on paper). Each page would have to be a seperate pdf...

I presume this will be easy for you guys but I'm not very into coding (not at all really) and can't seem to find the necessary info online...

Thx in advance

Jolivanes: No, this doesn't seem to work. I get an errormessage, saying there's no connection to my printer??
Are you sure the syntaxis is right??

Ok, you were right about that one. I forgot to change the settings to 'print to pdf' :-D

Changed that for now, but it still doesn't seem to work.
When I press run, it seems like the program is rendering the pdffiles at first. But when I go to look in this map C:/pablo there's no files there.
I've searched for new .pdffiles on the disk but they're nowhere to be found...

Any ideas?

The name of the folder where to put the files is the same as in the code.

Still doens't work... I have a feeling I'm overlooking a very simple thing...

Ok this is the code:

Sub test()

txt$ = InputBox("Enter # From & To separated by - like below" & vbLf & "1-5")

For x& = Split(txt, "-")(0) To Split(txt, "-")(1)
Sheets("Blad1").[A75].Value = x
Sheets("Factuur Voorbeeld").PrintOut , , , , , True, , "C:\Pablo" & x & ".PDF"
Next

End Sub



I've put the settings to print to pdf. And A75 in the above code is the correct value.

.... when I run it, it seems to take the time to compile the requested files. But when I look in the folder C:\Pablo there are no files to be found ??
I dunno what's wrong, it has to be something very easy...

@Jolivanes: Finally got it working today. Which is super, thx for all the help, wouldn't have worked without you :-)