Save some pages as PDF

Hi all,

I'm creating a file which will have more than 50 reports (1 report equal to 1 sheet).

However, it isn't always necessary to save or print all the reports.

Because of that, i thought about to create a menu where I can choose the report (or reports) to be save as PDF.

I'm looking for a vba code that allows me to choose which report I want to save as PDF. I can choose only a report or more than one, which should be saved in just one PDF.

It would be great if you could help me on this.

I've seen some examples on the internet, but I can't apply them to my file.

Thanks in advance.

Regards,

Thanks for your help but I don't have VBA knowledge do do that.

I know how to create the userform, but only that.

Regards,

I've an example of the userform but I don't know how to attached it here

Have a look at this. One of the esteemed members, I don't know who any more, published this way back when.
Play around with it and see if it is something you want.

Originally Posted by jolivanes

Have a look at this. One of the esteemed members, I don't know who any more, published this way back when.
Play around with it and see if it is something you want.

This is what I had in mind but the attached file has errors.

The only difference I have in mind, is the possibility to choose the direction to save the file.

Sub Salvar_PDF()

Application.ScreenUpdating = False

If Range("Cliente!AQ5") = 1 Then

Sheets("MenuInicial").Select

ThisWorkbook.Sheets(Array("Capa", "Cliente", "ResumoRn1", "Rn1", "TribAut", "Q07F", "Q08", "Q10F", "PEC", "Benefícios")).Select
Dim vPDFPath As Variant

Do

bRestart = False
vPDFPath = Application.GetSaveAsFilename(, "PDF Files (*.pdf), *.pdf")
If CStr(vPDFPath) = "False" Then
Exit Sub
Else
lAppSep = InStrRev(vPDFPath, Application.PathSeparator)
End If

If UCase(Dir(vPDFPath)) = UCase(Right(vPDFPath, Len(vPDFPath) - lAppSep)) Then
Select Case MsgBox("O arquivo já existe. Deseja substituí-lo?", _
vbYesNoCancel, "ATENÇÃO!")
Case vbYes
Kill vPDFPath
Case vbNo
bRestart = True
Case vbCancel
Sheets("MenuInicial").Select
Exit Sub
End Select
End If
Loop Until bRestart = False
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vPDFPath, _
OpenAfterPublish:=True

Sheets("MenuInicial").Select

MsgBox "Ficheiro Criado com Sucesso"

End If
End sub

Re: "has errors"
OK, that happens every so once in a while. However, that statement does not tell us anything. It would be nice to know what the error is.
Did you change cell C1?

This attachment will let you choose a folder to save in.
Remember, it is a very rough example and needs a lot of cleaning up yet. It is just for you to see if you want it or not.
bakerman2's example might be better. You can insert the FolderPicker in his code if you want.

Aha. Trying to confuse me.
Is easy to do isn't it!!!
Brood of banket?

How are things in the "Follies Bergeres"?
I don't know if you remember Joop van de Marel. He sang that song.

Thanks for your help.

It does almost what I want but I found 2 problems:

The listbox includes all sheets of the workbook (some are not supposed to be printable)

I always use sheets with simple names and with this code, they will appear also simple (Ex: R1 should be Report 1)

Probably it is very hard to do, and I don't want to give you more work.

Thanks anyway.

Regards,

There are several ways to do it. Here I show a range in Sheet4 that can be changed to suit. Change the other routines to suit as well.

Please Login or Register  to view this content.

The listbox includes all sheets of the workbook (some are not supposed to be printable).

I must have overlooked that where you mentioned that.
But you forgot to mention which sheets are not to be printed. Maybe you can enlighten us.

Does it matter if they are "simple names"? You don't have to type the names in after all. They appear magically in the listbox but if you want it different, all you have to do is let us know which difficult sheet names have to be changed to their more simple names.

Change the UserForm_Initialize code to:

Please Login or Register  to view this content.

Hi all,

Kenneth Hobson I don't understand your code, sorry.

Jolivanes you did it very well, thanks.

In respect of my previous email, see below an example:

Sheet "Blad1" should appear as "Financial Report" on the userform.
Sheet "Blad2" should appear as "Corporate Tax" on the userform.

(...) etc.

The other issue I would like to solve is the possibility to choose the name of the PDF file.

Thanks again for all your help.

Thanks jolivanes.

I've prepared an example but I can't find the button to attach it.

Could you help me please?

Thank you.

Take your pick from some of the examples here.

https://support.office.com/en-us/art...3-50e645fe3155


Or you can copy all the sheets from your workbook into one of the attachments that has everything in it.
Just delete/clear some of the garbage in the first sheet and add the name of that first sheet to the exemptions.

I like bakerman2's approach. A lot simpler and it does the job.
I hope bakerman2 does not take offence that I worked with his code and changed it to suit.

You could:
Delete all sheets from this file except Mastersheet
Copy all your sheets into this workbook
Change the sheets to be exempt in the code for UserForm2
Change the reference to where you would want the PDF files saved

Ok, thanks.

Attached is an example.

Sheet names different of the checkbox.

You can use listbox, for me will not be a problem.

I just don't know how to associate a sheet to a checkbox.

Thanks

Wow! You're almost there. Many thanks.

I've updated the code to have the possibility to choose the file name and to close the userform at the end.

I've now the following erros:

1st If I don't choose any "report"
2nd If I choose a report and then cancel or exit

See attached.

Thanks

Tks bakerman2.

1st is solved, but would be great if appear a msgbox saying "No item selected" like in your first code.
2nd is still creating a pdf file named "FALSO" on my documents box

Furthermore, I tryed to create new sheets and new checkbox and I can't associate them.
Some sheets will have a checkbox button, others will not.

Thanks

Now I understand how to add new sheets. Was missing to change the Tag.

The other issues I will wait for your expert help.

Thanks

Thanks bakerman2.

I still don't knoe the solution for the 2nd issue.

The rest of the code is perfect.

1. Sava as PDF
2. Choose at least 1 report
3. Save Selected as PDF
4. Cancel

Still creating a pdf file "FALSO"

Hi,

Now, i can cancel with no error but i can't go forward and save as pdf...

Tks

Sorry, I'm bad in English and sometimes is difficult to explain me.

I've changed the code following your previous post.

1st problem was solved. Now, when I cancel, it works perfect. However, if I decide not to cancel, and choose a name/location to the file, appears an error on that line you told me to change.

Originally Posted by bakerman2

Thanks for adding rep points and I assume all works as intended now?

Yes, it's perfect. It will be very useful. Thanks for all