Forum Discussion

marc47555's avatar
marc47555
Copper Contributor
Apr 21, 2020

Macro for printing from dropdown menu

Good Afternoon,   I need to print pick sheets for employees. I have already created a template of a picksheet in a worksheet and the sheet is generated using drop down menu of depot name and vlook...
Macros and VBA
Haytham Amairah's avatar
Haytham Amairah
Silver Contributor
Apr 21, 2020

marc47555

 

Hi,

 

Please try this code:

Sub PrintOutAllDepots()
    Dim r As Range
    Set r = Sheets("Orders").Range("D4:P4")
    Dim i As Integer
    i = 1
    Sheets("Pallet Card").Activate
    
    For Each c In r
        Range("R1").Value = r(1, i).Value
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        i = i + 1
    Next c
    
End Sub

 

Hope that helps

Resources