Good morning!
I programmed an application back in 2004 with Access 2000.
I have not modified it since then.
Everything works fine if we are using the Access 2000 runtime or any full version of Access up to 2016.
When I try and open the application with Access Runtime 2007 or 2013, I get an error when I go to print stating that the PrintOut command is not available at this time.
The code I use to print is:
_________________________________
Private Sub printpotext_Click
On Error GoTo ERR_printpotext_Click
Dim stDocName = "Purchase Order Control"
DoCmd.SelectObject acReport, stDocName, True
DoCmd.PrintOut , , , , 2
Exit_printpotext_Click:
Exit Sub
Err_printpotext_Click
MsgBox Err.Description
Resume Exit_printpotext_Click
End Sub
_______________________________________
Am I coding this incorrectly? As I stated it works fine in the 2000 Runtime or any full version from 2000 up to 2016.
I'd like to use the updated runtime because it puts date pickers next to all of the date fields.
I programmed an application back in 2004 with Access 2000.
I have not modified it since then.
Everything works fine if we are using the Access 2000 runtime or any full version of Access up to 2016.
When I try and open the application with Access Runtime 2007 or 2013, I get an error when I go to print stating that the PrintOut command is not available at this time.
The code I use to print is:
_________________________________
Private Sub printpotext_Click
On Error GoTo ERR_printpotext_Click
Dim stDocName = "Purchase Order Control"
DoCmd.SelectObject acReport, stDocName, True
DoCmd.PrintOut , , , , 2
Exit_printpotext_Click:
Exit Sub
Err_printpotext_Click
MsgBox Err.Description
Resume Exit_printpotext_Click
End Sub
_______________________________________
Am I coding this incorrectly? As I stated it works fine in the 2000 Runtime or any full version from 2000 up to 2016.
I'd like to use the updated runtime because it puts date pickers next to all of the date fields.