I’m trying to print a multi-copy report from a form. These reports replicate certain multi-copy bureaucratic forms on n-part colored cabonless copy paper.
You select the forms to print with a multi-select list box. After some checking & processing I try to do the following:
Select Case actOpt.Value
[tab] Case 1: 'Print
[tab][tab]'mark records for printing
[tab][tab]For Each docPtr In docList.ItemsSelected
[tab][tab][tab]rsDoc.Find "[DocID] = " & CStr(docList.Column(0, docPtr))
[tab][tab][tab]rsDoc![Action] = True 'flag for report query
[tab][tab][tab]rsDoc.Update[tab][tab][tab]'post changes
[tab][tab][tab]rsDoc.MoveFirst[tab][tab] 'so next search starts at begining
[tab][tab]Next
[tab][tab]'print records
[tab][tab]On Error GoTo Err_act_Click
[tab][tab]'DoCmd.PrintOut , , , acHigh, 2, False <<<<<<<Only prints current screen
[tab][tab]DoCmd.OpenReport "CheckReq", acNormal <<<Only prints one page
[tab][tab]'deselect records
…
Maybe some out there has tried to do the same thing?
Thanks for any help you can give in advance.
rafe
[sig][/sig]
You select the forms to print with a multi-select list box. After some checking & processing I try to do the following:
Select Case actOpt.Value
[tab] Case 1: 'Print
[tab][tab]'mark records for printing
[tab][tab]For Each docPtr In docList.ItemsSelected
[tab][tab][tab]rsDoc.Find "[DocID] = " & CStr(docList.Column(0, docPtr))
[tab][tab][tab]rsDoc![Action] = True 'flag for report query
[tab][tab][tab]rsDoc.Update[tab][tab][tab]'post changes
[tab][tab][tab]rsDoc.MoveFirst[tab][tab] 'so next search starts at begining
[tab][tab]Next
[tab][tab]'print records
[tab][tab]On Error GoTo Err_act_Click
[tab][tab]'DoCmd.PrintOut , , , acHigh, 2, False <<<<<<<Only prints current screen
[tab][tab]DoCmd.OpenReport "CheckReq", acNormal <<<Only prints one page
[tab][tab]'deselect records
…
Maybe some out there has tried to do the same thing?
Thanks for any help you can give in advance.
rafe
[sig][/sig]