#1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 4
Default printing

I need some help in writing a routine to print in this way... 3 sheets,
one in English, one in French and the third one, to enter all the
information, with a flag, E for English and F for French, in this page,
each line will be the information for the other two pages, but I want to
be print sequentially, once one if finish, the line will be clear and
then the next line will print, and so on.
Can I do this in excel?

Thanks,

Fernando
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 252
Default printing

Not exactly sure what you are looking for but this might help you get started:

Assumptions:
You are entering data in Sheet1
You enter in col A either "E" for Eng or "F" for French
You enter data in Col B
After entering all your data in Col B you click a command button to fire the
following macro which will copy your data to the correct sheet E or F.
You can then delete your entry data sheet 1.



Option Explicit

Sub Eng_French()

Dim oCell As Range
Dim E As Worksheet
Dim F As Worksheet

Set E = Worksheets("E")
Set F = Worksheets("F")


For Each oCell In Range("B1:B100")
If oCell < "" Then
Select Case UCase(oCell.Offset(0, -1))
Case Is = "E"
oCell.EntireRow.Copy
E.Range("A65536").End(xlUp).Offset(1, 0)
Case Is = "F"
oCell.EntireRow.Copy
F.Range("A65536").End(xlUp).Offset(1, 0)
Case Else
MsgBox "Row " & oCell.Row & " is not flagged.", vbOKOnly
End Select
End If
Next oCell

Set E = Nothing
Set F = Nothing
Set oCell = Nothing

End Sub


Rather than all data being entered, followed by a command button, you could
do this one line at a time by placing the following code in the Sheet1 object:

Private Sub Worksheet_Change (ByVal Target as Range)
If Target.Cells.Count = 1 then
Application.EnableEvents = False
If Not Intersect(Target, Range("A1") Is Nothing Then
If Target.Offset(0,1)<"" Then
Eng_French
Target.Entirerow.Eelete
End If
End if
Application.EnableEvents = True
End if
End Sub


"Fernando Duran" wrote:

I need some help in writing a routine to print in this way... 3 sheets,
one in English, one in French and the third one, to enter all the
information, with a flag, E for English and F for French, in this page,
each line will be the information for the other two pages, but I want to
be print sequentially, once one if finish, the line will be clear and
then the next line will print, and so on.
Can I do this in excel?

Thanks,

Fernando

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
Excel 2003 printing problem--printing 1 document on 2 pages Bons Excel Discussion (Misc queries) 0 December 24th 09 04:15 PM
Excel Printing --Borders are not printing on the same page as data Stup88 Excel Discussion (Misc queries) 1 August 7th 07 09:34 AM
Printing a heading on each new page when printing Brian Excel Discussion (Misc queries) 3 November 15th 06 05:22 PM
Enable Double sided printing contiuously when printing multiple s. Lee Excel Discussion (Misc queries) 1 November 27th 04 01:58 AM
Printing? Worksheets not printing the same on multiple pc's! 43fan Excel Programming 2 April 29th 04 02:34 PM


All times are GMT +1. The time now is 03:47 PM.

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

About Us

"It's about Microsoft Excel"