1.Modify the code for the project using the command Selection.PrintOut Copies:=1, Collate:=True below the line Range("C2:E16").Select (indented so that it is left aligned with the line above it).

2.In the VBA Editor, delete any empty comment lines or blank lines in the code, and then copy the entire HalfDay_Ticket macro including the Sub statement to the End Sub statement. Paste the code into cell A1 of Sheet2. The VBA code should appear in cells A1:A7 when pasted.

3.Turn on Design Mode. On Sheet1, draw an ActiveX command button control from cells I17:K18. Using the Properties pane, set the name of the button to FullDayTicket, the height to 23.25, and the width to 150. Set the caption to Print Full-day Ticket.

4.View the code for the command button. Above the Private Sub FullDayTicket_Click() statement, type the following two comments. Be sure to include a space between the text and the quotation mark. ' FullDayTicket Command Button ' Prints Full-day Ticket

Immediately below the Sub FullDayTicket_Click() statement, press TAB and type (on two lines): Range("H4:L15").Select Selection.PrintOut Copies:=1, Collate:=True 5.Return to Excel and then deselect Design Mode. Click the Print Full-day Ticket button to run the macro. Ensure that the ticket prints as expected. 6.In the VBA Editor, delete any empty comment lines or blank lines in the code, and then copy the entire FullDayTicket code including the first comment to the End Sub statement. Paste the code into cell A12 of Sheet2 in this workbook. The VBA code will appear in cells A12:A17 when pasted.

035 A B C. E G H K L M N P o R 1 1 1 2 3 4 5 6 7 8 9 10 11 12 13 1 1 DIP TechDay Conference 2016 DP TechDay Conference 2016 1 1 1 1 1 Half-day Ticket Full-day Ticket 14 15 76 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 Sheet1 Sheet2 A B D E F G H K M 1 2 3 4 5 6 7 8 + 9 10 11 12. 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Sheet1 Sheet2 Ready Type here to search 035 A B C. E G H K L M N P o R 1 1 1 2 3 4 5 6 7 8 9 10 11 12 13 1 1 DIP TechDay Conference 2016 DP TechDay Conference 2016 1 1 1 1 1 Half-day Ticket Full-day Ticket 14 15 76 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 Sheet1 Sheet2 A B D E F G H K M 1 2 3 4 5 6 7 8 + 9 10 11 12. 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Sheet1 Sheet2 Ready Type here to search