Posts by Matthijs93


    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:

    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
    End If
    End Sub

    Thanks for the help

    (sorry for the bad english)

    Matthijs Head