Q2443B Stapler, Staple 3 jobs together (66 Views)
Reply
Occasional Visitor
Dan O'Shea
Posts: 3
Registered: ‎08-14-2009
Message 1 of 5 (66 Views)
Accepted Solution

Q2443B Stapler, Staple 3 jobs together

I am currently moving a 3 part carbonless paper print job from continuous sheet to single sheet A4.

The continuous sheet paper is pre-printed with logos and generic text and is printed on an old impact printer.

The new printer is a HP LJ 4250dtn.

I have worked out how to get the 3 separate pages to print from 3 different trays duplexing 2 of the pages and come out in the right order.

The 3 separate pages are sent to the printer as 3 jobs.

Page 1 duplex (job 1)
Page 2 single sided (job 2)
Page 3 duplex (job 3)

I know from doing some surfing that the Q2443B staples based on jobs not pages.

Can the Q2443B stapler staple all three jobs(three pages) together?

ie multiple jobs collated with 1 staple.

And if so can the number of jobs to be stapled together be changed using vba?

Hope this is enough info, any help would be apprieciated.

Dan

Please use plain text.
Honored Contributor
Chris H
Posts: 3,927
Registered: ‎06-04-2004
Message 2 of 5 (66 Views)

Re: Q2443B Stapler, Staple 3 jobs together

>> Can the Q2443B stapler staple all three
>> jobs(three pages) together?

No.
Stapling is a job-level feature.

You will need to combine your current three (small) jobs into one larger job.

Quite how (or whether!) you can do this depends on just how you are generating the three 'mini' jobs at present (i.e. on how much your application (rather than a standard printer driver) is controlling the contents of the print streams).

On thing I don't quite understand: your post describes page 1 and 3 as 'duplex' - but this doesn't make much sense for single pages (unless you are using it to circumvent problems associated with printing on the 'correct' side of pre-printed stationery).
Please use plain text.
Occasional Visitor
Dan O'Shea
Posts: 3
Registered: ‎08-14-2009
Message 3 of 5 (66 Views)

Re: Q2443B Stapler, Staple 3 jobs together

Here is the code that i am using to print the reports.I'm doing some other stuff in this code to loop throught the recordset and rest the report source. Its a bit messy but it works.

Both reports have the same front page but rptDSUInspections has some condition data on the back page ( Clerical staff only need the stuff on the front page).

Because I need to have 3 pages printed from 3 different trays the reports are printed as separate jobs.

tray 2 pink Carbon Back paper
tray 3 green Carbon Front Back paper
tray 4 white Carbon Front paper

What is the setup for the stapler. Is is just hard set to staple every job?

Maybe I can get around this by combining the reports into 1 report( 1 print job) and get the paper presorted into the layered order.

-------------------------------------------
Private Sub Command1_Click()

Const conReport As String = "rptDSUInspections"
Const conReportClerical As String = "rptDSUInspectionsClerical"

Dim InspSubject As String
Dim InspDate As Date
Dim InspPeriod As String


Set db = CurrentDb

InspSubject = [Forms]![Form1]![Combo2]
InspDate = [Forms]![Form1]![Combo4]
InspPeriod = [Forms]![Form1]![Combo6]


strSQLrs1 = "SELECT * FROM dbo_InspectionSheetData " & _
"WHERE inspectionSubject = '" & InspSubject & "' " & _
"AND inspectionPeriod= '" & InspPeriod & "' " & _
"AND inspectionDate= #" & InspDate & "#"


Set rs1 = db.OpenRecordset(strSQLrs1)

If rs1.RecordCount = 0 Then
MsgBox "There are no Inpections to print"
Exit Sub
End If

While Not rs1.EOF

Set currUUID = rs1![uuid]
strSQLrs2 = "SELECT * FROM dbo_InspectionSheetData where uuid = '" & currUUID & "'"
Set rs2 = db.OpenRecordset(strSQLrs2)

While Not rs2.EOF


DoCmd.OpenReport conReport, View:=acViewDesign, WindowMode:=acHidden
Reports!rptDSUInspections.RecordSource = strSQLrs2
DoCmd.Close acReport, conReport, acSaveYes

DoCmd.OpenReport conReportClerical, View:=acViewDesign, WindowMode:=acHidden
Reports!rptDSUInspectionsClerical.RecordSource = strSQLrs2
DoCmd.Close acReport, conReportClerical, acSaveYes

'Print current report to Top bin with duplexing
DoCmd.OpenReport conReport, View:=acViewPreview, WindowMode:=acHidden
With Reports(conReport).Printer
.PaperBin = 260
.Duplex = acPRDPHorizontal
End With
'Now print the report.
DoCmd.OpenReport conReport
DoCmd.Close acReport, conReport

'Print current report to Middle bin , single sheet
DoCmd.OpenReport conReportClerical, View:=acViewPreview, WindowMode:=acHidden
With Reports(conReportClerical).Printer
.PaperBin = 261
End With
'Now print the report.
DoCmd.OpenReport conReportClerical
DoCmd.Close acReport, conReportClerical

'Print current report to Bottom bin with duplexing
DoCmd.OpenReport conReport, View:=acViewPreview, WindowMode:=acHidden
With Reports(conReport).Printer
.PaperBin = 262
.Duplex = acPRDPHorizontal
End With
'Now print the report.
DoCmd.OpenReport conReport
DoCmd.Close acReport, conReport

rs2.MoveNext


Wend

rs1.MoveNext

Wend

Set rs1 = Nothing

End Sub

------------------------------------------
Please use plain text.
Honored Contributor
Chris H
Posts: 3,927
Registered: ‎06-04-2004
Message 4 of 5 (66 Views)

Re: Q2443B Stapler, Staple 3 jobs together

Your (VBA?) code is calling Windows routines to print your 'reports'.

As such, for each individual report it appears that you can select the media (paper) source tray and duplex settings, etc.

You need to merge the three jobs into one, but in doing so you would need to be able to specify media source and duplex settings on a per-page basis (rather than per-job).

You may also find that the stapling feature can only be switched on programmatically - i.e. the generated print stream must start with the appropriate PJL statement(s) to cause stapling.

While doing this (and the per-page settings) can easily be done if you are in complete control of the print stream (i.e. effectively writing your own print driver), I've no idea whether or not the Windows interfaces provide this level of control (but I doubt it).
Please use plain text.
Occasional Visitor
Dan O'Shea
Posts: 3
Registered: ‎08-14-2009
Message 5 of 5 (66 Views)

Re: Q2443B Stapler, Staple 3 jobs together

Thanks heaps for the response,


I have amended my code slightly and now have the three pages as 1 print job.

I also got the paper pre-sorted.

In addition this now means that i only need to use 1 tray instead of 3.

If the stapler works on a job basis then I should have no worries with stapling( i can staple every job sent to the printer.)

Just need to figure out how to turn stapling on and off with vba.



Please use plain text.
The opinions expressed above are the personal opinions of the authors, not of HP. By using this site, you accept the Terms of Use and Rules of Participation