Sub PosPtrExec(MyDeviceName As String, MyCtrlName As String, MojiRetsu As String) Dim MyCtrlX As Control Set MyCtrlX = Screen.ActiveForm(MyCtrlName) Dim MyLngRtn As Long MyLngRtn = MyCtrlX.Open(MyDeviceName) If MyLngRtn <> 0 Then Exit Sub End If MyLngRtn = MyCtrlX.Claim(5000) If MyLngRtn <> 0 Then Exit Sub End If MyCtrlX.DeviceEnabled = True MyCtrlX.PrintNormal 2, MojiRetsu MyCtrlX.DeviceEnabled = False MyCtrlX.ReleaseDevice MyCtrlX.Close Set MyCtrlX = Nothing