Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Hulk2099
 
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.
  #2   Report Post  
Drew
 
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   Report Post  
Dave Peterson
 
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   Report Post  
Hulk2099
 
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   Report Post  
Hulk2099
 
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

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


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 02:15 AM
print selected sections on the same page ripley Excel Discussion (Misc queries) 1 February 22nd 05 05:04 PM


All times are GMT +1. The time now is 09:31 AM.

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

About Us

"It's about Microsoft Excel"