Hey,
I am new to visual basic. for the company where I work I am working on an excel document for safty documents. the excel becomes a library of all the documents we have within the company. Each document gets its own sheet. different sheets are used per project. to realize this I made a list box where you can select the sheets. I succeed in printing the selected sheets on a printer, but I do not succeed in bundling them into 1 PDF. I would also like it to show the save as menu so you can assign a location and maby directly to te place where te excel is placed.
in the attachment what I have made so far.
for printing i used the code:
Code
Private Sub Afdrukken_standaardprinter_Click()
If MsgBox("Afdrukken op standaard printer.", vbOKCancel, "Printen") = vbOK Then
For x = 0 To LstPrint.ListCount - 1
If LstPrint.Selected(x) = True Then Worksheets(LstPrint.List(x)).PrintOut Copies:=1, Collate:=True
Next
End If
End Sub
Thanks for the help
(sorry for the bad english)
Matthijs Head