L
Lele
I need to print work tickets for our production people that reflect the
number of items to be produced and help us track that we have produced and
shipped all items on the order.
For example if my order is for 3 pillows and 2 bedskirts, I need to produce
5 work tickets. I have been using this great code written by Graham Mandeno
and it works super. (see Below). I would like to refined the code as follows:
First: I would like the 3 pillow tickets to show 1 of 3, 2 of 3, and 3 of 3.
Of course the 2 bedskirts would show 1 of 2, 2 of 2 etc. for each item on
the order.
Second: I would also like to have each of the 5 tickets say 1 of 5 items on
the order, 2 of 5 items on the order, etc. (this way the shipper is more
likely not to miss a piece on the order.)
Third, I produce draperies either as single panels or in pairs. If the UOM
on the work order is pairs I need 2 copies of the work ticket produced for
each pair - one for left and one for the right.
Any help is greatly appreciated.
Lele
Dim iCopiesPrinted As Integer
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then iCopiesPrinted = 0
iCopiesPrinted = iCopiesPrinted + 1
If iCopiesPrinted < QTY Then Me.NextRecord = False
End Sub
Private Sub Report_Page()
iCopiesPrinted = iCopiesPrinted - 1
End Sub
number of items to be produced and help us track that we have produced and
shipped all items on the order.
For example if my order is for 3 pillows and 2 bedskirts, I need to produce
5 work tickets. I have been using this great code written by Graham Mandeno
and it works super. (see Below). I would like to refined the code as follows:
First: I would like the 3 pillow tickets to show 1 of 3, 2 of 3, and 3 of 3.
Of course the 2 bedskirts would show 1 of 2, 2 of 2 etc. for each item on
the order.
Second: I would also like to have each of the 5 tickets say 1 of 5 items on
the order, 2 of 5 items on the order, etc. (this way the shipper is more
likely not to miss a piece on the order.)
Third, I produce draperies either as single panels or in pairs. If the UOM
on the work order is pairs I need 2 copies of the work ticket produced for
each pair - one for left and one for the right.
Any help is greatly appreciated.
Lele
Dim iCopiesPrinted As Integer
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then iCopiesPrinted = 0
iCopiesPrinted = iCopiesPrinted + 1
If iCopiesPrinted < QTY Then Me.NextRecord = False
End Sub
Private Sub Report_Page()
iCopiesPrinted = iCopiesPrinted - 1
End Sub