A Microsoft Excel forum. ExcelBanter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » ExcelBanter forum » Excel Newsgroups » Excel Discussion (Misc queries)
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

How do I print one image (say page 1) twice on the same page?



 
 
Thread Tools Display Modes
  #1  
Old August 26th 05, 08:19 AM
Hulk2099
external usenet poster
 
Posts: n/a
Default How do I print one image (say page 1) twice on the same page?

Hello, does anyone know if Excel offer the print option of printing 2up?
Meaning, printing the same page twice on one sheet (ie: page 1 printed twice
-perhaps landscape, side-by-side, and 50% of course. I have tried and I do
not know if Excel is capable of this. Any assistance is appreciated.
Ads
  #2  
Old August 26th 05, 10:04 AM
Drew
external usenet poster
 
Posts: n/a
Default

Hi there
I had exactly the same question a few months ago. The simple answer is
Excel can't do this easily.
So a workaround is required. What I did for my workbook was to add an
extra worksheet on which I copied what I wanted to print. I called the
worksheet "Double". The worksheet has these settings:
A4 Landscape 55% print size.

Here is the routine from my program:

Sub a5bProgReportPrinter()
Set Shr = Sheets("Progress"): Set Shd = Sheets("Data")
a5bEventsOff
w = 0 'P2 onto one Page flag
Sheets("Double").Range("A1:R59").Clear
For T = Shr.[M9] + 4 To Shr.[P9] + 4
a5bLoadProgDetails (T) 'Load details
Select Case Trim(Application.Caller)
Case "P1P" 'for printing only 1 page
Sheets("Progress").PrintOut From:=1, To:=1, copies:=1
Application.Wait Now + TimeValue("00:00:02")
Case "P2P" 'for printing 2 onto one page
w = w + 1
If w = 1 Then
Shr.Range("A1:H58").Copy Sheets("Double").[A1]
End If
If w > 1 Then
w = 0
Shr.Range("A1:H58").Copy Sheets("Double").[J1]
Sheets("Double").PrintOut From:=1, To:=1, copies:=1
Sleep 500 'Time delay - don't overflow print buffer
Sheets("Double").Range("A1:R59").Clear
End If
End Select

Next T
If w = 1 Then Sheets("Double").PrintOut From:=1, To:=1, copies:=1
Shr.[A6].Select
a5bEventsOn
End Sub

Hope this helps.

Andrew Bourke

  #3  
Old August 26th 05, 01:44 PM
Dave Peterson
external usenet poster
 
Posts: n/a
Default

Excel can't do this, but lots of newer printers have this capability, well not
to print the same page twice, but to print 2-up.



Hulk2099 wrote:
>
> Hello, does anyone know if Excel offer the print option of printing 2up?
> Meaning, printing the same page twice on one sheet (ie: page 1 printed twice
> -perhaps landscape, side-by-side, and 50% of course. I have tried and I do
> not know if Excel is capable of this. Any assistance is appreciated.


--

Dave Peterson
  #4  
Old October 2nd 05, 07:41 PM
Hulk2099
external usenet poster
 
Posts: n/a
Default

Drew, I appreciate your reply. Seem like you found a way around it using
advanced formulation -kudos! I am going to give it a shot.

Best regards, Jerry

"Drew" wrote:

> Hi there
> I had exactly the same question a few months ago. The simple answer is
> Excel can't do this easily.
> So a workaround is required. What I did for my workbook was to add an
> extra worksheet on which I copied what I wanted to print. I called the
> worksheet "Double". The worksheet has these settings:
> A4 Landscape 55% print size.
>
> Here is the routine from my program:
>
> Sub a5bProgReportPrinter()
> Set Shr = Sheets("Progress"): Set Shd = Sheets("Data")
> a5bEventsOff
> w = 0 'P2 onto one Page flag
> Sheets("Double").Range("A1:R59").Clear
> For T = Shr.[M9] + 4 To Shr.[P9] + 4
> a5bLoadProgDetails (T) 'Load details
> Select Case Trim(Application.Caller)
> Case "P1P" 'for printing only 1 page
> Sheets("Progress").PrintOut From:=1, To:=1, copies:=1
> Application.Wait Now + TimeValue("00:00:02")
> Case "P2P" 'for printing 2 onto one page
> w = w + 1
> If w = 1 Then
> Shr.Range("A1:H58").Copy Sheets("Double").[A1]
> End If
> If w > 1 Then
> w = 0
> Shr.Range("A1:H58").Copy Sheets("Double").[J1]
> Sheets("Double").PrintOut From:=1, To:=1, copies:=1
> Sleep 500 'Time delay - don't overflow print buffer
> Sheets("Double").Range("A1:R59").Clear
> End If
> End Select
>
> Next T
> If w = 1 Then Sheets("Double").PrintOut From:=1, To:=1, copies:=1
> Shr.[A6].Select
> a5bEventsOn
> End Sub
>
> Hope this helps.
>
> Andrew Bourke
>
>

  #5  
Old October 2nd 05, 07:43 PM
Hulk2099
external usenet poster
 
Posts: n/a
Default

Dave,

Thank you for your reply. Besides attempting the advaced formula technique
suggested by Drew, I'll look into printers as well. I have many uses for 2-up
printing on Excel.

Warm regards,
Jerry

"Dave Peterson" wrote:

> Excel can't do this, but lots of newer printers have this capability, well not
> to print the same page twice, but to print 2-up.
>
>
>
> Hulk2099 wrote:
> >
> > Hello, does anyone know if Excel offer the print option of printing 2up?
> > Meaning, printing the same page twice on one sheet (ie: page 1 printed twice
> > -perhaps landscape, side-by-side, and 50% of course. I have tried and I do
> > not know if Excel is capable of this. Any assistance is appreciated.

>
> --
>
> Dave Peterson
>

 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I print a one page spreadsheet multiple time, each with its own page number? lhsallwasser Excel Discussion (Misc queries) 4 August 17th 05 03:00 PM
Can I print one page landscape and the next page portrait on same. lisajillian Excel Discussion (Misc queries) 1 August 8th 05 08:17 PM
tOTALS WON'T PRINT ON SAME PAGE annes519 New Users to Excel 2 June 3rd 05 11:12 PM
My scaling is set to print 1x1 pages. But it prints 1000's of page Graeme Excel Worksheet Functions 0 March 23rd 05 01:15 AM
print selected sections on the same page ripley Excel Discussion (Misc queries) 1 February 22nd 05 04:04 PM


All times are GMT +1. The time now is 06:15 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Copyright 2004-2014 ExcelBanter.
The comments are property of their posters.