Save/Print Macro

Hi,
I have added a userform to select the customer you want to import data for.
it also pulls the customer name over - this acts as the filename to use when saving the order as a new work book.

when you click save it copies the data to a new workbook, saves it as the filename.
you can choose to save to desktop or change the location to your folder, see code in CreateWB.

I cant do much with the print part as it depends what you are using. If it is a printer you will need to record a macro for the printing part and then run it to see if it works. If you have have cute pdf installed I can do code to save as pdf.

hope this works for you.

Here are the revised codes for the selection of the customer and the clear button

Sub test3()
    Dim cus As String
    Dim rng As Range
    cus = InputBox("Which Customer?")
    Set rng = Sheets("Form").Range("A1")
    Dim x As Variant
    x = WorksheetFunction.Match(cus, Sheets("Data").Range("C:C"), 0)
    rng.Value = Sheets("Data").Range("A" & x)
    
End Sub

Sub clear()

    Range("A1:D3").ClearContents

End Sub

For the printing, what is the print range?

Alternative to an input box for the customer name, you may want to use a combo box to select the name.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.