Your opinion about multi-page reports

[spectraflame]

Currently I have a report created that is a single page (portrait). I have now been asked to include a second page (landscape) to include all inventory items for the specific department that is on the first page.

My question is would it be better to have a separate report for the inventory information and just link the data based on the department name or would be just as easy to include the inventory sheet with the first sheet? I was not for sure if I could have to pages of the same report have different modes (portrait & landscape).

Also is it possible to create a report with multiple column? I would like to have the report display the inventory information in 3 sections on a single page.

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1	Classification	Item#	Description	Quantity		Classification	Item#	Description	Quantity		Classification	Item#	Description	Quantity
2	WaterMeters	W5001	2"Meter	2		Clamps	W6100	4"	1		Pipe	W7200	PVC-8ft.	1
3		W5002	4"Meter	5			W6101	5"	2			W7201	Iron-10ft.	2
4
5
6
7
8
9
10
11
12
Sheet1

Thanks,
Matthew

 

[TheToeOfPooh]

To make things simple (?).

How about -

Create the second "Landscape" report
Create a Macro which runs one after the other.
On a suitable Menu\Switchboard Form
Attach the macro to a Command Button using the ON Click Event
When the user selects their button the two reports are printed consecutively.

HTH
Bernard

 

[spectraflame]

Here is the current macro that I am using to print the current record to the first form. I created another loandscape report like you suggested, Invenrpt, but I am not sure where to insert the code to have it printed. The department from the main order entry form will dertermine which departments inventory items are printed out. I will be using Me!WOType to determine this.

Private Sub Print_Record_Click()
On Error GoTo Err_Print_Record_Click

Dim strDocName As String
Dim strWhere As String
strDocName = "WorkOrderrpt"
strWhere = "[RecordID]=" & Me!RecordID
'DoCmd.OpenReport strDocName, acPreview, , strWhere
DoCmd.OpenReport strDocName, acNormal, , strWhere

Exit_Print_Record_Click:
Exit Sub

Err_Print_Record_Click:
MsgBox Err.Description
Resume Exit_Print_Record_Click

End Sub

 

[SydneyGeek]

Re your question on multiple columns -- yes, it's pretty simple.

In Detail view on the report, one of the properties is the # of columns -- you can also set the column spacing. Just be aware that your layout is now restricted to the width of a SINGLE column; get all your controls in that width and you'll be OK

As for the code...

Private Sub Print_Record_Click() 
On Error GoTo Err_Print_Record_Click 

Dim strWhere As String 
strWhere = "[RecordID]=" & Me!RecordID 
'change acNormal to acPreview if you need to view before printing
DoCmd.OpenReport "WorkOrderrpt", acNormal, , strWhere 
DoCmd.OpenReport "InvenRpt", acNormal, , strWhere 

Exit_Print_Record_Click: 
Exit Sub 

Err_Print_Record_Click: 
MsgBox Err.Description 
Resume Exit_Print_Record_Click 

End Sub

 

[spectraflame]

I played around with it last night and the following code works for me. Can you tell me if I have lines in there that I do not need? I was thinking that I needed to split it up in this manner becuase the second sheet "Invenrpt" needed to be filtered by something different than RecordID.

Private Sub Print_Record_Click()
On Error GoTo Err_Print_Record_Click

Dim strDocName As String
'Dim strWhere As String
strDocName = "WorkOrderrpt"
'strWhere = "[RecordID]=" & Me!RecordID
'DoCmd.OpenReport strDocName, acPreview, , strWhere
DoCmd.OpenReport strDocName, acNormal, , strWhere

Dim strDocName2 As String
Dim strWhere2 As String
strDocName2 = "Invenrpt"
strWhere2 = "[WOType]=" & Me!WOType
'DoCmd.OpenReport strDocName, acPreview, , strWhere
DoCmd.OpenReport strDocName2, acNormal, , strWhere

Exit_Print_Record_Click:
Exit Sub

Err_Print_Record_Click:
MsgBox Err.Description
Resume Exit_Print_Record_Click

End Sub

 

[SydneyGeek]

Looks OK to me, but this would be a bit more concise:

Private Sub Print_Record_Click() 
On Error GoTo Err_Print_Record_Click 

Dim strWhere As String 
strWhere = "[RecordID]=" & Me!RecordID 
strWhere2 = "[WOType]=" & Me!WOType
'change acNormal to acPreview if you need to view before printing 
DoCmd.OpenReport "WorkOrderrpt", acNormal, , strWhere 
DoCmd.OpenReport "InvenRpt", acNormal, , strWhere2 

Exit_Print_Record_Click: 
Exit Sub 

Err_Print_Record_Click: 
MsgBox Err.Description 
Resume Exit_Print_Record_Click 

End Sub

Denis

 

[spectraflame]

Thanks for you assistance Denis.

Matthew