HELP

W

wade polk

I don't have "getdevicecaps", twipstopixels, or any of the other functions that people say I can use. I am using access 2003. I have a visio drawing control on a form. I want the form to be anchored in the obvious manner.

Private Sub Form_Resize()
DrawingControl0.Width = TwipsToPixels(Form.Width) - 2000 '11000
DrawingControl0.Height = TwipsToPixels(Form.Detail.Height) - 2000 '8000
End Sub

I tried this for the twipstopixels function, but the graphics type is not recognized.
Private Function TwipsToPixels(ByVal intPixels As Integer) As Integer

Dim g As Graphics
Set g = Me.CreateGraphics()

TwipsToPixels = intPixels * g.Dpi / 1440
g.Dispose
End Function

I can't beleive these idiots would release a programming lagguage without sufficient conversion tools.
 
J

John W. Vinson

I don't have "getdevicecaps", twipstopixels, or any of the other functions that people say I can use. I am using access 2003. I have a visio drawing control on a form. I want the form to be anchored in the obvious manner.

Private Sub Form_Resize()
DrawingControl0.Width = TwipsToPixels(Form.Width) - 2000 '11000
DrawingControl0.Height = TwipsToPixels(Form.Detail.Height) - 2000 '8000
End Sub

I tried this for the twipstopixels function, but the graphics type is not recognized.
Private Function TwipsToPixels(ByVal intPixels As Integer) As Integer

Dim g As Graphics
Set g = Me.CreateGraphics()

TwipsToPixels = intPixels * g.Dpi / 1440
g.Dispose
End Function

I can't beleive these idiots would release a programming lagguage without sufficient conversion tools.
Click to expand...

Check Tools... References in the VBA editor, and make sure that the
appropriate graphics library is loaded.
 
Top