Reports :: Workorder - Print Three Copies With Each Copy Having Different Text In Footer
Jan 23, 2014
I have an old access database (written with 2003 but running under 2010) that creates workorders and I need to change a couple of the reports to print three copies with each copy having different text in the footer. I'm converting the reports from a old DOT Metrix special form printer to a laser printer. I have already modified the reports as far as the titleing and cosmetics are concerned and they print and look great on the laser printer. I have also added a TxT box that I want to contain the information on the report.
The reports are generated in a couple of different ways off different screens in the system off buttons, but I figured if I can get one of them to work I can replicate it to the others.
I have gone through the reports forum and have found a couple of solutions but can't get them to work. This is what I have found:
On the on button to print a range of workorders (it drives a query that asks for a starting workorder number and a ending workorder number) click from the from the switchboard:
DoCmd.OpenReport "rptBulkWorkOrdersbyWorkOrderNumberRange", , , , , "1"
DoCmd.OpenReport "rptBulkWorkOrdersbyWorkOrderNumberRange", , , , , "2"
DoCmd.OpenReport "rptBulkWorkOrdersbyWorkOrderNumberRange", , , , , "3"
Then I have this code but I'm not sure where it goes. On the report in the "on open" expression? not sure..
Select Case Me.OpenArgs
Case "1"
txtBox62 = "Shop Copy"
txtFld1 = [qryField1]
[Code] .....
View Replies
ADVERTISEMENT
Mar 20, 2013
I have a form with attached subform from which I can choose which records to send to a report. All records in the base table have a comment text field for the user to enter additional data (comments). Typically, there are none, but when there is, if it is only a single record sent to the report, the comment is printed in the page footer. However, if there are multiple records being sent to the report and only one record has text in the comment field, unless it's the last record it the subform, it will not print in the report. There isn't enough room in the detail section to include the comment field (like I said, it's typically not used and when it is, they can be lengthy). Is there a way to get the comment field to print in the report page footer when it is not either the only record selected, or the last record?
View 4 Replies
View Related
Oct 15, 2007
I have a form in Access with a command button that prints a receipt (which is actually created as a report). Anyway, I want 2 copies of this receipt to print when the print receipt button is clicked. Please take a look at my code and tell me what I would need to be able to accomplish this. Thanks.
rivate Sub PrintRec_Click()
On Error GoTo Err_PrintRec_Click
Dim rstTrans As New ADODB.Recordset
Dim fld As ADODB.Field
Dim strField As String
Dim curCount As Currency
rstTrans.Open "dbo_tbl_Transactions", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If IsNull(Me.TempTransNumID.value) Then
'this is new record
rstTrans.AddNew
Else
'to stay on the record that was just inserted for editing
rstTrans.Find ("TransNumID=" + Str$(Me.TempTransNumID))
End If
rstTrans!TransDate = Me.TransDate
rstTrans!CustomerName = Me.CustomerName
rstTrans!VehType = Me.VehType
rstTrans!TktType = Me.TktType
rstTrans!Auth_By = Me.AuthBy
rstTrans!Quantity = Me.Quantity
rstTrans!SHtkt1 = Me.SHtkt1
rstTrans!SHtkt2 = Me.SHtkt2
rstTrans!HRtkt1 = Me.HRtkt1
rstTrans!HRtkt2 = Me.HRtkt2
rstTrans!TransPayAmt = Me.TransPayAmt
rstTrans!PaymentType = Me.txtPaymentType
rstTrans!PaymentMethod = Me.cboPaymentMethod
rstTrans!CheckNum = Me.CheckNum
rstTrans!TransReceiptMemo = Me.TransReceiptMemo
rstTrans!TransEntryTime = Now()
rstTrans!TransEntryUserID = appUser
If Me.cboPaymentMethod = "Check" And IsNull(CheckNum) Then 'Check number not entered
MsgBox "You must enter a check no.", vbCritical, "Check Number Verification"
CheckNum.SetFocus
Exit Sub
End If
rstTrans.Update
'this was a new record so update the form value of TransNumID for edit
If IsNull(rstTrans!TransNumID.value) <> True Then
Me.TempTransNumID = rstTrans!TransNumID.value
End If
whereClause = "NewQryShuttleHandiRideReceipt.TransNumID" & " = " & rstTrans!TransNumID
//////here is where I'm printing the receipt
DoCmd.OpenReport "RptShuttle HandiRide Receipt", acViewNormal, , whereClause
rstTrans.Close
Set rstTrans = Nothing
Me.cmdAddRec.Enabled = True
Exit_PrintRec_Click:
MsgBox "Record Successfully Saved! Printing Receipt."
Exit Sub
Err_PrintRec_Click:
MsgBox Err.Description
Resume Exit_PrintRec_Click
End Sub
View 2 Replies
View Related
May 17, 2013
I've used the following code on the footer on print procedure:
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Me.PageFooterSection.Visible = (Me.[Page] = 1)
End Sub
This works fine when you view it in print preview, but the footer don't show up at all when you actually print it.The reports default view itself is set print preview.
View 3 Replies
View Related
Jul 8, 2007
I want to print 3 copies of a report named Invoice with different remark i.e. Customer Copy, Office Copy, Auditor Copy. I want to print all 3 copies with a single print command.
Can any one help me.
Sample database is in attachmant.
View 7 Replies
View Related
Jan 7, 2015
In Access 2007 is it possible to alter a macro so I can print 2 copies of a report. I have created a simple macro which opens up a report based on a value in a data entry form. I want to automatically print 2 copies of the report. Is this possible....
View 1 Replies
View Related
Nov 1, 2011
I am trying to print 5 copies of the report via the button on the form.
I'm sure I have the code correct, however I only prints 1 copy instead of 5.
View 1 Replies
View Related
Jul 11, 2007
I have to make a new copy of a db starting with a blank db and importing all the objects into the blank. (Corruptions issues).
When a blank db is made, and the objects imported into it, the security permissions do not copy over. The only way I know how to get the security permissions back is to redo them in the new copy. It's a big db. Lots of time. Ugh.
Is there any way to copy and paste the security permissions from one db to another?
Thanks
View 1 Replies
View Related
Nov 18, 2013
I am trying to add to a db I inherited. One of the end reports that is produced is a cost breakdown for each end user.As things stand, the data collates into individual reports which are then grouped into one file and saved via PDF. What I am trying to work out is whether or not I can selectively pick some of those reports to have more than one copy.
I see a form (within an existing form) that will list all of the end users for a particular scheme and, next to that, be a dropdown that will allow the db user to select how many copies of each report needs to be published. These will then collate merrily into one document to be saved to PDF.
View 8 Replies
View Related
Dec 9, 2013
I have one field in my table "Id". Here I have inputed 16 digit number always. Can I print out every digit with different text box or label in my report?
View 4 Replies
View Related
Jan 5, 2015
I have several reports that include subreports in them, each one has a bold border surrounding it. When viewing the reports in Access, the spacing and layout is great.
But when I print the reports--either physically or to PDF--the text within the subreports somehow shifts left and up. Some of the subreports--by virtue of chance--happen to have enough extra space, but others don't and part of the text gets clipped by the border.
I'm not exactly motivated to go through the reports and readjust the layout for each one but if there's a database setting that I can change to correct it that would be nice.
I've attached a screenshot (where the layout is perfect) and a printed PDF (where the text is clipped) of one of the reports. The issue can best be seen in the Public/Private ZooMobile and Indoor/Outdoor ZooMobile subreports.
View 5 Replies
View Related
Dec 13, 2013
I have researched on here how to print the results of a query to a text file. I put the code in and I get an error on the openrecordset line. The error says "too few parameters, expected 4"
I tried the query in another report I export to excel and the query works.
I tried printing the whole table using "Select * from tbl_Customers" and it works????
Here is the code:
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("qryBell1", dbOpenSnapshot)
Dim fs, TextFile
Set fs = CreateObject("Scripting.FileSystemObject")
Set TextFile = fs.CreateTextFile(pathname, True)
[Code] ....
the query returns 6 fields for printing and can filter based on whether 3 fields are filled or not on the form - Date, Campaign, Status
View 6 Replies
View Related
Jan 12, 2015
I have always noticed that when creating a report, when you make a paragraph using a label, the alignment and size of the text/paragraph is always different when you preview the report than when you design it.
This makes alignment of paragraphs tricky, especially when you are trying to insert a bold faced word into the middle of a block of text by using a separate label.
I am using Access 2000
View 4 Replies
View Related
Sep 24, 2013
Our access database keep track of children attending an after-school music programme.
Each week we print registers and give them to the class teachers for them to mark who is coming. The registers are produced as a report, grouped by School then by Class.
We run 3 times a week so each week I need to print off 3 copies of the registers for each class.
Is there a way to print multiple copies of each group in a report? This would save me quite a bit of time each week.
I'm using Access 2013...
View 5 Replies
View Related
Jun 16, 2014
I am trying to produce statistics reports in my database. The user selects the information they require in a form (date from, date to etc). A query then produces the results listing each job in turn which is what I want however at the end I would like to produce sub-totals for each client.
Depending on the criteria selected by the user, only some clients will appear in the list. Ideally I would like the footer to show something like:
Client 1 - 4 jobs
Client 2 - 1 job
Client 5 - 6 jobs
Client 6 - 17 jobs
I have tried using the field:
Code:
=Count([ClientDetailsName])
However this only gives the total number of jobs.
View 6 Replies
View Related
Jul 22, 2013
My report produces multiple copies of the same record. I know why, but don't know how to fix it.
EmployeeTable.
With a one to many relationship with TrainingTable (via employee PK as FK in trainingtable).
Training table has a one to many relationship with a table called Range.
Report is based on a query that picks up the Employee/Training/Range (range just describes the training unit).
However, If I have more than one range expressed organized a training unit, the report spits out several copies of the Employee record to display all the ranges.
View 2 Replies
View Related
May 8, 2014
I have a field on a report with this as its control source...
-------------------
=(Format(Int([quantity]*(DLookUp("[Plot_times]","[ProductList]","[Code] = Reports![Mask_order_book]![CUST_REF]"))/60),"0") & ":" & Format([quantity]*(DLookUp("[Plot_times]","[ProductList]","[Code] = Reports![Mask_order_book]![CUST_REF]")) Mod 60,"00"))
----------------------
It turns a number like this "120" into elapsed time in hours and minutes like this "2:00"
I have a report with an elapsed time for all of the items. I simply want to SUM it at the report footer, but i guess my control source turns it from a number into text, which then cannot be summed ?
View 4 Replies
View Related
Oct 23, 2014
I am trying to create an invoice report. I want to add all the costs from the detail section in my footer. I have accomplished this in either the Report footer and/or the page footer, but the problem is that the report footer doesn't go to the bottom of the page, and the page footer doesn't go to just the last page. I have tested a bunch of suggestions that don't seem to work.
1. Print page footer with Report header = NO - only works if your report is two pages or more.
2. Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
If Page = Pages Then
Me.[TextBoxName].Visible = True
Else
Me.[TextBoxName].Visible = False
End If
End Sub
The Page functions worked, but it did not change the results from page to page. If it was a two page report, then the if statement is false and the text box was not visible on page 1, but it also was not visible on page 2.
View 1 Replies
View Related
Jun 5, 2014
I have a 14 page report in which I want the footer to appear only on the first page. I accomplish this with some code in the OnFormat event of the page footer:
If Page > 1 Then
Me.PageFooter2.Visible = False
Else
Me.PageFooter2.Visible = True
End If
The first page has the footer (great).
The 3rd thru the 14th page does not (great).
The 2nd page also doesn't have the footer - but - it only shows a half page of data! The data continues where it left off on the third page!
So, to sum up:
1st Page: Footer with detail section containing 16 rows of data.
3rd thru 14th Page: No footer section with 28 rows of data.
2nd Page: No footer with only 16 rows of data.
View 2 Replies
View Related
Jul 3, 2013
I current have three different reports that are the same except for the footers. That means that each time I have a change to the report, I have to remember to make the change on all three copies. Is there a way to add (1) some custom text such as "Client Copy", "Please Sign and Return", "Our Copy" plus one or two data fields from the report query in the page footer (the data fields would be different for each copy)?Basically, what I would like to do is have just one report, but print three copies of it, with each of the three copies having different footers as described above. Is this possible?
View 14 Replies
View Related
May 30, 2013
I have a report that has a group within a group. The interior group has a footer with a textbox calculating an average. I would like the Outer group to then SUM the averages. I tried doing a =sum([TextBoxWithTheGroup Average]), but access prompts me for the value of this box when I run the report.
To summarize: is there a way to sum a textbox within the footer of a grouping
View 1 Replies
View Related
Sep 27, 2013
I am struggling with building and If Then statement in my Report Footer. I have a report that pulls data from two tables...Students and Homeroom. This gives me a list of the students in each homeroom class and they are separated by homeroom. I would like to use a function in the page footer that counts the number of students who are members of our PTSA organization and then returns a percentage based on the total number of students in each homeroom class.
In the Report, I have on each page:
Page Header: Homeroom, LastName, FirstName, FamilyID
Details: LastName, FirstName, FamilyID
What I need is for the function to look at the FamilyID field and determine is there is any value entered. Then I need a count the total number of records in that homeroom and the total number of records with a value, so I can then get a percent of how many students actually belong to the PTSA in each homeroom.
View 9 Replies
View Related
Mar 14, 2008
I know how to print out a copy of a form that has no sub-forms as part of it. For those of you trying to do this, open the objects menu and click on Forms. Right click on the form you wish to print and save as a report. Open the reports menu and print the form. Suggest you eliminate colors or your ink supply will run out quickly.
Anyway, I am looking at trying to print the form with the sub-form showing as part of it. It is only for presentation purposes to show the End Users what the form will look like and ensure that all requirements are met. I could do a print screen but that only works if the form is smaller than the screen.
Any suggestions??
Thanks,
Alan
View 2 Replies
View Related
May 7, 2015
Is there away to have the report footer only to display on the first page?
View 4 Replies
View Related
Mar 21, 2013
I have a report that I'm trying to concatenate some "sum" and "count" data into one line. This is what I have
Code : "There is currently" & " " & =Sum([pounds]) & " " & "Pounds in" & " " & =count([quant]) & " " & "Containers"
but it gives me a syntax error when going from Design view to Report View.
View 16 Replies
View Related
Nov 2, 2013
Placing the grouping total values on the bottom of the last page of this report, such as below?
Common . . . . . . 44.55%
Convertable Bond .14.55 %
Preferred . . . . . . .40.91%
View 1 Replies
View Related
