A macro that will format data in another sheet, print it, and loop that process.

Excel Capture 3.PNGExcel capture 2.PNG

I am working on a project that involves printing a large amount of "Part Tickets". Attached is a picture of the worksheet I am using. There is a macro that pulls this data from a dart query, and formats it together on that excel worksheet. I need to create a macro that, when ran, will run row by row down worksheet 1, pull the data from each row and put it as I have formatted in the other picture on worksheet 2, print that row of data in the format I have, then continue to go down the worksheet and essentially format and print all of the data in the worksheet.

The goal here is to be able to select a range of dates from the dart query, and with the help of excel macros, auto print these "Part Tickets" for all parts needed in a selected date range. The tickets have a very specific size to them and are printed on a unique printer, which is why the format is important.

This is my first post as I am just now learning about excel macros through this project. If anyone is able to help it would be very much appreciated.

Thanks!

I am not sure if your data is on a sheet with a filter active or if the data is in a named table (ListObject). The code below assumes a filtered sheet.

Please Login or Register  to view this content.

Note that the sheets are referred to by index number and require edititing to use actual sheet names in the code. eg. Sheets(1) edited as Sheets("Print").

The worksheets are just named sheet 1 and sheet 2, so I shouldn't have to make any edits, correct? Although I am unsure if the data is filtered or unfiltered (pretty new to all this).

I ran the code you supplied a few times, and it did not generate the tickets to print. Although it seems to generate a Kutools box 25% of the time which asks me to highlight something and I am unsure of what it wants me to select.

I was also wondering, If the code works, should the usual print screen pop up confirming print options, or will it just use my default printer and send it straight to printing? If possible, I would want it to generate the print screen to select a specific printer.

The worksheets are just named sheet 1 and sheet 2, so I shouldn't have to make any edits, correct?

No, that is not correct. Sheets(1) is not necessarily Sheets("Sheet1") and same for Sheets(2). The index number is based on the sheet order of the sheet name tabs as they appear to the user from left to right, regardless of the names on the name tab. So you need to replace the index numbers with actual sheet names for the sheets that contain the data.

I am not familiar with Kutools and have no idea why the code would produce such a display.

If the code is installed in code module 1 (Not a sheet code module and not ThisWorkbook code module) and the worksheet references are correct and the data is not in a named table, then it should take the six cells from each row of sheet 2 and place them on sheet 1, cells B2:D3, to be printed. Whether you get a print preview or not will depend on your system settings.

As i said, I am not familiar with the Kutools addin. I have no idea how it is triggered, how it is used or how to avoid it. If the code is not working for you, then it means that the code cannot be applied to that worksheet with the data entered in the current manner and I cannot change the code to compensate for it without being able to understand exactly what we are working with. So I will just drop off this thread. Sorry I couldn't help.
Regards, JLG

Administrative Note:

Welcome to the forum.

We would love to help you with your query; however, it has been brought to our attention the same query has been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Read this to understand why we (and other sites like us) consider this to be important.

(Note: this requirement is not optional. No help to be offered until the link is provided.)