Akhilesh,
Thank you for your response. Though that line is helpful, it is not
what I need. Maybe this simple example will help clarify:
Sub test()
For i = 0 To 10
Range("A1").Select
ActiveCell.FormulaR1C1 = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub
The way that this is currently written, there will be 11 separate
print jobs sent to the printer, resulting in 11 pages.
What I would like to do is to have only ONE print job sent to the
printer, which will result in 11 pages. Does that help?
Dustin
On May 12, 2:10 am, Akhilesh Karna <[email protected]> wrote:
> Maybe I got it wrong. But if I understand correctly, then you can use the
> following code at the end of the loop ( when your data is being read to the
> invoice).
>
> ActiveWindow.SelectedSheets.PrintOut Copies:=1
>
> Hope you make your problem more clear if the above does not help.
>
> Akhilesh Kumar Karna
>
> On Tue, May 12, 2009 at 6:57 AM, Dustin <[email protected]> wrote:
>
> > Dear All,
>
> > I have an invoice template, which reads different data from other
> > worksheets in the workbook through a for loop. Each iteration of the
> > loop is a different customer and hence a new invoice. Currently, I am
> > searching for a way to print these invoices (a few hundred) in a
> > single print job, instead of a few hundred single-page print jobs.
>
> > My initial thought was to have a macro which copied each invoice to a
> > word document and have each new invoice be a new page, then simply
> > print the word document. I believe this is still the ideal case,
> > though I am having a very difficult time keeping the formatting of the
> > invoice intact during this transfer. The closest I have gotten is to
> > use the picture-copy method in VBA:
> > ...
> > Worksheets("Invoice").Range("A1:R80").CopyPicture _
> > Appearance:=xlScreen, Format:=xlPicture
>
> > WordApp.Selection.Paste
> > ...
>
> > Though this is less than ideal since the invoice is now a picture
> > instead of a table which can be edited.
>
> > I am certainly open to any other way to accomplish this as well.
>
> > What are your thoughts on this?
>
> > MUCH appreciated =] ... I love this group.
>
> > Dustin
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to [email protected]
If you find any spam message in the group, please send an email to:
Ayush Jain @ [email protected] or
Ashish Jain @ [email protected]
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
