i tried this code but it wants to print over 100 pages.
i wnat to print the form as it appears on the screen like the VB
PrintForm Method does.
?
Dim stDocName As String
Dim MyForm As Form
stDocName = "Elephant Inventory"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut acPages, 7, 7, , 1
DoCmd.SelectObject acForm, MyForm.Name, False
