I open a form, resize it with the code below and then try to save the resized form under a new name.
The code below copies the original form instead of the modified form to the new name . How do I save the modified form under the new name?
Private Sub Command53_Click()
Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm
Const conTempPrint = "TempToPrint"
Dim X As Integer, Y As Integer, cx As Integer, cy As Integer
X = 0
Y = 0
cx = 700
cy = 950
xg_SizeWindow "Active", X, Y, cx, cy
DoCmd.CopyObject , frmCurrentForm.Name + conTempPrint, acForm, frmCurrentForm.Name