A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Access » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Graphics to PDF



 
 
Thread Tools Display Modes
  #31  
Old June 5th, 2010, 11:14 PM posted to microsoft.public.access
nonoe nonone
external usenet poster
 
Posts: 5
Default none

no who on web
doning not nuning sent that



jeramie francis wrote:

woman lie a"Proposal Doctor" wrote:
23-Oct-09

woman lie a

"Proposal Doctor" wrote:

Previous Posts In This Thread:

On Friday, October 23, 2009 5:20 PM
Proposal Doctor wrote:

Graphics to PDF
I am interested in knowing which graphics format works best in Access 2007
when the destination is PDF. I have tried gif, jpeg, and tiff. And I have
tried copying a graphic directly from PowerPoint into an Access Report, which
works best.

Does anyone have a better solution? My problem is with an oval. It is
jagged. Text looks great.

Also, what is the difference between using "Image" and using "Logo?"

Thanks.

David

On Friday, October 23, 2009 6:24 PM
Arvin Meyer [MVP] wrote:

Vector files do not leave jagged edges.
Vector files do not leave jagged edges. Try using a WMF format


An image is any image, a logo is an image that is a symbol for a corporate
entity.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

On Friday, October 23, 2009 7:34 PM
jeramie francis wrote:

woman lie a"Proposal Doctor" wrote:
woman lie a

"Proposal Doctor" wrote:

On Friday, October 23, 2009 7:51 PM
jeramie francis wrote:

"jeramie francis" wrote:
"jeramie francis" wrote:

On Friday, October 23, 2009 8:18 PM
jeramie francis wrote:

"jeramie francis" wrote:jeramie francis good i am boy i am that a tobo
"jeramie francis" wrote:

jeramie francis good i am boy i am that a tobo

On Friday, October 23, 2009 8:27 PM
jeramie francis wrote:

jeramie francis i not sin"jeramie francis" wrote:
jeramie francis i not sin

"jeramie francis" wrote:

On Friday, October 23, 2009 9:18 PM
jeramie francis wrote:

"jeramie francis" wrote:THINK YOU HLEP ME TUO I AM 21 YEAR OLD
"jeramie francis" wrote:

THINK YOU HLEP ME TUO I AM 21 YEAR OLD

On Monday, November 23, 2009 3:18 PM
jeramie francis wrote:




On Monday, November 23, 2009 3:19 PM
jeramie francis wrote:




On Monday, November 23, 2009 3:20 PM
jeramie francis wrote:

"jeramie francis" wrote:
"jeramie francis" wrote:

On Monday, November 23, 2009 3:21 PM
jeramie francis wrote:

":
":

On Monday, November 23, 2009 3:23 PM
jeramie francis wrote:




On Monday, November 23, 2009 3:24 PM
jeramie francis wrote:

"
"

On Wednesday, December 16, 2009 4:18 PM
James A. Fortune wrote:

For those creating PDF files directly from Access or from a PDFcreation tool
For those creating PDF files directly from Access or from a PDF
creation tool (i.e., without using the A2K7 PDF Add-In), perhaps the
following solution for a vector ellipse will work until I come up with
something better.

Objective: Draw an ellipse centered at (X, Y) pts with eccentricity e
used to stretch a circle along the X-Axis using the existing brush
color, or (R,G,B) values if they are specified.

Although stretching out a circle is simpler than creating an ellipse
from scratch, it has a disadvantage that the width of the line also
stretches, making the boundary tenuous near the minor axis. That
might look O.K. for smaller ellipses or ones having only a slight
eccentricity (1 = perfectly round). I checked that the center of the
circle did not change when stretching by marking the center of the
original circle after the ellipse was created and the graphics
environment restored, but I did not actually measure it on the printed
page, so it is possible that the origin moves when the circle is
stretched.

'Begin module code
Public Function DrawFlatEllipse(ByVal dblEccentricity As Double, ByVal
dblX As Double, ByVal dblY As Double, ByVal dblR As Double, ByVal
dblLineWidth As Double, Optional dblRed As Double = -1, Optional
dblGreen As Double, Optional dblBlue As Double) As String
Dim P1x As Double
Dim P1y As Double
Dim P1ux As Double
Dim P1uy As Double
Dim P1dx As Double
Dim P1dy As Double
Dim P2x As Double
Dim P2y As Double
Dim P2rx As Double
Dim P2ry As Double
Dim P2lx As Double
Dim P2ly As Double
Dim P3x As Double
Dim P3y As Double
Dim P3ux As Double
Dim P3uy As Double
Dim P3dx As Double
Dim P3dy As Double
Dim P4x As Double
Dim P4y As Double
Dim P4rx As Double
Dim P4ry As Double
Dim P4lx As Double
Dim P4ly As Double
Dim strTemp As String
Dim strCR As String

strCR = Chr(13)
P1x = dblX + dblR
P1y = dblY
P1ux = P1x
P1uy = P1y + CRatio * dblR
P1dx = P1x
P1dy = P1y - CRatio * dblR
P2x = dblX
P2y = dblY + dblR
P2rx = P2x + CRatio * dblR
P2ry = P2y
P2lx = P2x - CRatio * dblR
P2ly = P2y
P3x = dblX - dblR
P3y = dblY
P3ux = P3x
P3uy = P3y + CRatio * dblR
P3dx = P3x
P3dy = P3y - CRatio * dblR
P4x = dblX
P4y = dblY - dblR
P4rx = P4x + CRatio * dblR
P4ry = P4y
P4lx = P4x - CRatio * dblR
P4ly = P4y
strTemp = "q" & strCR
strTemp = strTemp & CStr(dblLineWidth) & " w" & strCR
If dblRed -1 Then
strTemp = strTemp & CStr(dblRed) & " " & CStr(dblGreen) & " " & CStr
(dblBlue) & " rg" & strCR
End If
'Set a new graphics origin at P4x, P3y
strTemp = strTemp & "1 0 0 1 " & CStr(P4x) & " " & CStr(P3y) & " cm" &
strCR
'Change the scale in the x direction, use dblEccentricity
strTemp = strTemp & CStr(Round(1 / dblEccentricity, 4)) & " 0 0 1 0 0
cm" & strCR
'Move to the right side of the circle

On Friday, December 18, 2009 9:55 PM
James A. Fortune wrote:

wrote:Here is a sample of a PDF ellipse created from A97 using about 28Bezier
wrote:


Here is a sample of a PDF ellipse created from A97 using about 28
Bezier curves.

https://files.oakland.edu/users/fort...rueEllipse.pdf

It should be possible to apply a coordinate transformation in order to
tilt the ellipse any amount and still have it be fairly smooth.

James A. Fortune


On Sunday, December 20, 2009 12:45 AM
James A. Fortune wrote:

wrote:I worked some more on getting the PDF ellipses smoother, plus I
wrote:


I worked some more on getting the PDF ellipses smoother, plus I am
including the code I used to create the layout as input to the
PDFLayoutViewer (modified with a Landscape option):

https://files.oakland.edu/users/fort...ueEllipse2.pdf

Note that I specify the lengths of the major and minor axes instead of
using the eccentricity. It would not be difficult to free the delta
angle from its current limitations.

'Code behind form
Dim strOut As String
Dim strFileOut As String
Dim strCR As String

strCR = Chr(13)

strFileOut = "C:\TrueEllipseLayout.txt"
'Mark the center of the ellipse with a crosshair
strOut = "0.3 w" & strCR
strOut = strOut & "195 500 m" & strCR
strOut = strOut & "205 500 l" & strCR
strOut = strOut & "200 495 m" & strCR
strOut = strOut & "200 505 l" & strCR
strOut = strOut & "S" & strCR
strOut = strOut & DrawTrueEllipse(200, 500, 30, 80, 50, 0, 0, 0.42353)
Open strFileOut For Output As #1
Print #1, strOut
Close
MsgBox ("Done.")
'End Code behind form

'Begin Module Code

Public Type Curve
DX As Double
DY As Double
L1 As Double
Alpha As Double
L4 As Double
Beta As Double
End Type

Public Type PiecewiseCurve
Curves(300) As Curve
End Type

Public Function DrawTrueEllipse(dblX As Double, dblY As Double, N As
Integer, dblA As Double, dblB As Double, Optional dblR As Double = -1,
Optional dblG As Double, Optional dblBlue As Double) As String
Dim strTemp As String
Dim strCR As String
Dim thePiecewiseCurve As PiecewiseCurve
Dim I As Integer
Dim DeltaTheta As Integer
Dim Theta As Integer
Dim dblCurX As Double
Dim dblCurY As Double
Dim X1 As Double
Dim X2 As Double
Dim Y1 As Double
Dim Y2 As Double
Dim NSeg As Integer
Dim boolSuccess As Boolean
Dim dblRefAngle As Double
Const DegToRad = 0.0174532925

'dblA = Half the major axis in pts.
'dblB = Half the minor axis in pts.

'For now use N's that go into 360 evenly
DeltaTheta = 360 / N
NSeg = 0
dblCurX = 0
dblCurY = 0
X1 = 0
Y1 = 0
X2 = 0
Y2 = 0
For Theta = 0 To (360 - DeltaTheta) Step DeltaTheta
NSeg = NSeg + 1
X1 = X2

On Sunday, December 20, 2009 2:54 AM
James A. Fortune wrote:

wrote:It would probably be nice to show code for the following
wrote:



It would probably be nice to show code for the following also:

GetXY()
GetReferenceAngle()
GetBezierAngle()

Public Function GetXY(dblA As Double, dblB As Double, dblTheta As
Double, ByRef dblX As Double, ByRef dblY As Double) As Boolean
Dim dblDenom As Double
Dim dblAbsX As Double
Dim dblAbsY As Double
Const DegToRad = 0.0174532925

GetXY = True
If dblTheta = -90 Or dblTheta = 90 Then
dblX = 0
dblY = Sgn(dblTheta) * dblB
Exit Function
End If
If dblTheta = 0 Then
dblX = dblA
dblY = 0
Exit Function
End If
If dblTheta = 180 Then
dblX = -dblA
dblY = 0
Exit Function
End If
dblDenom = dblB * dblB + dblA * dblA * Tan(dblTheta * DegToRad) * Tan
(dblTheta * DegToRad)
'calculate the absolute value of x and y
dblAbsX = (dblA * dblB) / Sqr(dblDenom)
dblAbsY = dblAbsX * Abs(Tan(dblTheta * DegToRad))
Select Case dblTheta
Case Is 90#:
dblX = dblAbsX
dblY = dblAbsY
Case Is 180#:
dblX = -dblAbsX
dblY = dblAbsY
Case Is 270#:
dblX = -dblAbsX
dblY = -dblAbsY
Case Else
dblX = dblAbsX
dblY = -dblAbsY
End Select
End Function

Public Function GetReferenceAngle(dblTheta As Double, dblX As Double,
dblY As Double, dblA As Double, dblB As Double) As Double
Dim dblReferenceAngle As Double
Const DegToRad = 0.0174532925

GetReferenceAngle = 0
If dblTheta = 0 Or dblTheta = 360 Then
GetReferenceAngle = 90
Exit Function
End If
If dblTheta = 180 Then
GetReferenceAngle = -90
Exit Function
End If
GetReferenceAngle = Atn(dydx(dblA, dblB, dblX, dblY)) / DegToRad
End Function

Public Function dydx(dblA As Double, dblB As Double, dblCurX As
Double, dblCurY As Double) As Double
dydx = -dblB * dblB * dblCurX / (dblA * dblA * dblCurY)
End Function

Public Function GetBezierAngle(dblTheta As Double, dblReferenceAngle
As Double, strAlphaBeta As String) As Double
GetBezierAngle = 0
If dblTheta 360 Then dblTheta = dblTheta - 360
If strAlphaBeta = "Alpha" Then
Select Case dblTheta
Case Is 180:
GetBezierAngle = dblReferenceAngle + 180#
Case Else
GetBezierAngle = dblReferenceAngle
End Select
Else
Select Case dblTheta
Case Is 180:
GetBezierAngle = dblReferenceAngle + 180#

On Tuesday, February 09, 2010 2:42 PM
arlene ramirez wrote:

jeramie bellmay


On Tuesday, February 09, 2010 2:43 PM
arlene ramirez wrote:

jeramie bellmay


On Tuesday, February 09, 2010 2:45 PM
arlene ramirez wrote:

jeramie bellmay?
" wrote:

On Tuesday, February 09, 2010 2:47 PM
arlene ramirez wrote:

jeramie bellmay?
"jeramie bellmay" wrote:

On Tuesday, February 09, 2010 2:48 PM
arlene ramirez wrote:

jeramie bellmay
"arlene ramirez" wrote:

On Tuesday, February 09, 2010 2:49 PM
arlene ramirez wrote:

jeramie bellmay?
"arlene ramirez wrote:

On Tuesday, February 09, 2010 2:50 PM
arlene ramirez wrote:

jeramie bellmay
arlene ramirez" wrote:

On Tuesday, February 09, 2010 2:52 PM
arlene ramirez wrote:

jeramie bellmay
"Proposal Doctor" wrote: arlene ramirez

On Friday, June 04, 2010 7:59 PM
nonoe nonone wrote:

no
no

On Friday, June 04, 2010 8:00 PM
nonoe nonone wrote:

no
no

On Friday, June 04, 2010 8:19 PM
nonoe nonone wrote:

no
i not doin nunning i not sent nunning

On Friday, June 04, 2010 8:34 PM
none wrote:

i am not doin nunning sent y som one doin soming ok
i am not doin nunning sent y som one doin soming ok

On Saturday, June 05, 2010 2:13 AM
none wrote:




On Saturday, June 05, 2010 4:15 PM
nonoe nonone wrote:

none
no i not don sent nunning ok who no web on name on it
ok i need som help ok

On Saturday, June 05, 2010 5:04 PM
nonoe nonone wrote:

nonoe
no i not donin nuning ok
i not sent and who on name on web
som one help me


Submitted via EggHeadCafe - Software Developer Portal of Choice
MSChart For VB.Net
http://www.eggheadcafe.com/tutorials...for-vbnet.aspx
  #32  
Old June 6th, 2010, 12:22 AM posted to microsoft.public.access
none
external usenet poster
 
Posts: 22
Default no



"nonoe nonone" wrote:

no



jeramie francis wrote:

"jeramie francis" wrote:jeramie francis good i am boy i am that a tobo
23-Oct-09

"jeramie francis" wrote:

jeramie francis good i am boy i am that a tobo

Previous Posts In This Thread:

On Friday, October 23, 2009 5:20 PM
Proposal Doctor wrote:

Graphics to PDF
I am interested in knowing which graphics format works best in Access 2007
when the destination is PDF. I have tried gif, jpeg, and tiff. And I have
tried copying a graphic directly from PowerPoint into an Access Report, which
works best.

Does anyone have a better solution? My problem is with an oval. It is
jagged. Text looks great.

Also, what is the difference between using "Image" and using "Logo?"

Thanks.

David

On Friday, October 23, 2009 6:24 PM
Arvin Meyer [MVP] wrote:

Vector files do not leave jagged edges.
Vector files do not leave jagged edges. Try using a WMF format


An image is any image, a logo is an image that is a symbol for a corporate
entity.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

On Friday, October 23, 2009 7:34 PM
jeramie francis wrote:

"Proposal Doctor" wrote:


"Proposal Doctor" wrote:

On Friday, October 23, 2009 7:51 PM
jeramie francis wrote:

"jeramie francis" wrote:
"jeramie francis" wrote:

On Friday, October 23, 2009 8:18 PM
jeramie francis wrote:

"jeramie francis" wrote:jeramie francis good i am boy i am that a tobo
"jeramie francis" wrote:

jeramie francis good i am boy i am that a tobo

On Friday, October 23, 2009 8:27 PM
jeramie francis wrote:

jeramie francis i not sin"jeramie francis" wrote:
jeramie francis

"jeramie francis" wrote:

On Friday, October 23, 2009 9:18 PM






On Monday, November 23, 2009 3:18 PM
jeramie francis wrote:




On Monday, November 23, 2009 3:19 PM
jeramie francis wrote:




On Monday, November 23, 2009 3:20 PM
jeramie francis wrote:

"jeramie francis" wrote:
"jeramie francis" wrote:

On Monday, November 23, 2009 3:21 PM
jeramie francis wrote:

":
":

On Monday, November 23, 2009 3:23 PM
jeramie francis wrote:




On Monday, November 23, 2009 3:24 PM
jeramie francis wrote:

"
"

On Wednesday, December 16, 2009 4:18 PM
James A. Fortune wrote:

For those creating PDF files directly from Access or from a PDFcreation tool
For those creating PDF files directly from Access or from a PDF
creation tool (i.e., without using the A2K7 PDF Add-In), perhaps the
following solution for a vector ellipse will work until I come up with
something better.

Objective: Draw an ellipse centered at (X, Y) pts with eccentricity e
used to stretch a circle along the X-Axis using the existing brush
color, or (R,G,B) values if they are specified.

Although stretching out a circle is simpler than creating an ellipse
from scratch, it has a disadvantage that the width of the line also
stretches, making the boundary tenuous near the minor axis. That
might look O.K. for smaller ellipses or ones having only a slight
eccentricity (1 = perfectly round). I checked that the center of the
circle did not change when stretching by marking the center of the
original circle after the ellipse was created and the graphics
environment restored, but I did not actually measure it on the printed
page, so it is possible that the origin moves when the circle is
stretched.

'Begin module code
Public Function DrawFlatEllipse(ByVal dblEccentricity As Double, ByVal
dblX As Double, ByVal dblY As Double, ByVal dblR As Double, ByVal
dblLineWidth As Double, Optional dblRed As Double = -1, Optional
dblGreen As Double, Optional dblBlue As Double) As String
Dim P1x As Double
Dim P1y As Double
Dim P1ux As Double
Dim P1uy As Double
Dim P1dx As Double
Dim P1dy As Double
Dim P2x As Double
Dim P2y As Double
Dim P2rx As Double
Dim P2ry As Double
Dim P2lx As Double
Dim P2ly As Double
Dim P3x As Double
Dim P3y As Double
Dim P3ux As Double
Dim P3uy As Double
Dim P3dx As Double
Dim P3dy As Double
Dim P4x As Double
Dim P4y As Double
Dim P4rx As Double
Dim P4ry As Double
Dim P4lx As Double
Dim P4ly As Double
Dim strTemp As String
Dim strCR As String

strCR = Chr(13)
P1x = dblX + dblR
P1y = dblY
P1ux = P1x
P1uy = P1y + CRatio * dblR
P1dx = P1x
P1dy = P1y - CRatio * dblR
P2x = dblX
P2y = dblY + dblR
P2rx = P2x + CRatio * dblR
P2ry = P2y
P2lx = P2x - CRatio * dblR
P2ly = P2y
P3x = dblX - dblR
P3y = dblY
P3ux = P3x
P3uy = P3y + CRatio * dblR
P3dx = P3x
P3dy = P3y - CRatio * dblR
P4x = dblX
P4y = dblY - dblR
P4rx = P4x + CRatio * dblR
P4ry = P4y
P4lx = P4x - CRatio * dblR
P4ly = P4y
strTemp = "q" & strCR
strTemp = strTemp & CStr(dblLineWidth) & " w" & strCR
If dblRed -1 Then
strTemp = strTemp & CStr(dblRed) & " " & CStr(dblGreen) & " " & CStr
(dblBlue) & " rg" & strCR
End If
'Set a new graphics origin at P4x, P3y
strTemp = strTemp & "1 0 0 1 " & CStr(P4x) & " " & CStr(P3y) & " cm" &
strCR
'Change the scale in the x direction, use dblEccentricity
strTemp = strTemp & CStr(Round(1 / dblEccentricity, 4)) & " 0 0 1 0 0
cm" & strCR
'Move to the right side of the circle

On Friday, December 18, 2009 9:55 PM
James A. Fortune wrote:

wrote:Here is a sample of a PDF ellipse created from A97 using about 28Bezier
wrote:


Here is a sample of a PDF ellipse created from A97 using about 28
Bezier curves.

https://files.oakland.edu/users/fort...rueEllipse.pdf

It should be possible to apply a coordinate transformation in order to
tilt the ellipse any amount and still have it be fairly smooth.

James A. Fortune


On Sunday, December 20, 2009 12:45 AM
James A. Fortune wrote:

wrote:I worked some more on getting the PDF ellipses smoother, plus I
wrote:


I worked some more on getting the PDF ellipses smoother, plus I am
including the code I used to create the layout as input to the
PDFLayoutViewer (modified with a Landscape option):

https://files.oakland.edu/users/fort...ueEllipse2.pdf

Note that I specify the lengths of the major and minor axes instead of
using the eccentricity. It would not be difficult to free the delta
angle from its current limitations.

'Code behind form
Dim strOut As String
Dim strFileOut As String
Dim strCR As String

strCR = Chr(13)

strFileOut = "C:\TrueEllipseLayout.txt"
'Mark the center of the ellipse with a crosshair
strOut = "0.3 w" & strCR
strOut = strOut & "195 500 m" & strCR
strOut = strOut & "205 500 l" & strCR
strOut = strOut & "200 495 m" & strCR
strOut = strOut & "200 505 l" & strCR
strOut = strOut & "S" & strCR
strOut = strOut & DrawTrueEllipse(200, 500, 30, 80, 50, 0, 0, 0.42353)
Open strFileOut For Output As #1
Print #1, strOut
Close
MsgBox ("Done.")
'End Code behind form

'Begin Module Code

Public Type Curve
DX As Double
DY As Double
L1 As Double
Alpha As Double
L4 As Double
Beta As Double
End Type

Public Type PiecewiseCurve
Curves(300) As Curve
End Type

Public Function DrawTrueEllipse(dblX As Double, dblY As Double, N As
Integer, dblA As Double, dblB As Double, Optional dblR As Double = -1,
Optional dblG As Double, Optional dblBlue As Double) As String
Dim strTemp As String
Dim strCR As String
Dim thePiecewiseCurve As PiecewiseCurve
Dim I As Integer
Dim DeltaTheta As Integer
Dim Theta As Integer
Dim dblCurX As Double
Dim dblCurY As Double
Dim X1 As Double
Dim X2 As Double
Dim Y1 As Double
Dim Y2 As Double
Dim NSeg As Integer
Dim boolSuccess As Boolean
Dim dblRefAngle As Double
Const DegToRad = 0.0174532925

'dblA = Half the major axis in pts.
'dblB = Half the minor axis in pts.

'For now use N's that go into 360 evenly
DeltaTheta = 360 / N
NSeg = 0
dblCurX = 0
dblCurY = 0
X1 = 0
Y1 = 0
X2 = 0
Y2 = 0
For Theta = 0 To (360 - DeltaTheta) Step DeltaTheta
NSeg = NSeg + 1
X1 = X2

On Sunday, December 20, 2009 2:54 AM
James A. Fortune wrote:

wrote:It would probably be nice to show code for the following
wrote:



It would probably be nice to show code for the following also:

GetXY()
GetReferenceAngle()
GetBezierAngle()

Public Function GetXY(dblA As Double, dblB As Double, dblTheta As
Double, ByRef dblX As Double, ByRef dblY As Double) As Boolean
Dim dblDenom As Double
Dim dblAbsX As Double
Dim dblAbsY As Double
Const DegToRad = 0.0174532925

GetXY = True
If dblTheta = -90 Or dblTheta = 90 Then
dblX = 0
dblY = Sgn(dblTheta) * dblB
Exit Function
End If
If dblTheta = 0 Then
dblX = dblA
dblY = 0
Exit Function
End If
If dblTheta = 180 Then
dblX = -dblA
dblY = 0
Exit Function
End If
dblDenom = dblB * dblB + dblA * dblA * Tan(dblTheta * DegToRad) * Tan
(dblTheta * DegToRad)
'calculate the absolute value of x and y
dblAbsX = (dblA * dblB) / Sqr(dblDenom)
dblAbsY = dblAbsX * Abs(Tan(dblTheta * DegToRad))
Select Case dblTheta
Case Is 90#:
dblX = dblAbsX
dblY = dblAbsY
Case Is 180#:
dblX = -dblAbsX
dblY = dblAbsY
Case Is 270#:
dblX = -dblAbsX
dblY = -dblAbsY
Case Else
dblX = dblAbsX
dblY = -dblAbsY
End Select
End Function

Public Function GetReferenceAngle(dblTheta As Double, dblX As Double,
dblY As Double, dblA As Double, dblB As Double) As Double
Dim dblReferenceAngle As Double
Const DegToRad = 0.0174532925

GetReferenceAngle = 0
If dblTheta = 0 Or dblTheta = 360 Then
GetReferenceAngle = 90
Exit Function
End If
If dblTheta = 180 Then
GetReferenceAngle = -90
Exit Function
End If
GetReferenceAngle = Atn(dydx(dblA, dblB, dblX, dblY)) / DegToRad
End Function

Public Function dydx(dblA As Double, dblB As Double, dblCurX As
Double, dblCurY As Double) As Double
dydx = -dblB * dblB * dblCurX / (dblA * dblA * dblCurY)
End Function

Public Function GetBezierAngle(dblTheta As Double, dblReferenceAngle
As Double, strAlphaBeta As String) As Double
GetBezierAngle = 0
If dblTheta 360 Then dblTheta = dblTheta - 360
If strAlphaBeta = "Alpha" Then
Select Case dblTheta
Case Is 180:
GetBezierAngle = dblReferenceAngle + 180#
Case Else
GetBezierAngle = dblReferenceAngle
End Select
Else
Select Case dblTheta
Case Is 180:
GetBezierAngle = dblReferenceAngle + 180#

On Tuesday, February 09, 2010 2:42 PM
arlene ramirez wrote:

jeramie bellmay


On Tuesday, February 09, 2010 2:43

jeramie bellmay


On Tuesday, February 09, 2010 2:45 PM


jeramie bellmay?
" wrote:

On Tuesday, February 09, 2010 2:47 PM
arlene ramirez wrote:

jeramie bellmay?
"jeramie bellmay" wrote:

On Tuesday, February 09, 2010 2:48 PM


jeramie bellmay
":

On Tuesday, February 09, 2010 2:49 PM


jeramie bellmay?


On Tuesday, February 09, 2010 2:50 PM


jeramie bellmay


On Tuesday, February 09, 2010 2:52 PM


jeramie bellmay



Submitted via EggHeadCafe - Software Developer Portal of Choice
Entity Framework 4.0 POCO-First development and POCO Template
http://www.eggheadcafe.com/tutorials...k-40-poco.aspx
.

  #33  
Old June 6th, 2010, 12:23 AM posted to microsoft.public.access
none
external usenet poster
 
Posts: 22
Default Graphics to PDF



"jeramie francis" wrote:



"Proposal Doctor" wrote:

I am interested in knowing which graphics format works best in Access 2007
when the destination is PDF. I have tried gif, jpeg, and tiff. And I have
tried copying a graphic directly from PowerPoint into an Access Report, which
works best.

Does anyone have a better solution? My problem is with an oval. It is
jagged. Text looks great.

Also, what is the difference between using "Image" and using "Logo?"

Thanks.

David

  #34  
Old June 6th, 2010, 12:23 AM posted to microsoft.public.access
none
external usenet poster
 
Posts: 22
Default Graphics to PDF



"none" wrote:

"jeramie francis" wrote:
i not idon nuning ok i don not sent ok who on web on ny name on it




"Proposal Doctor" wrote:

I am interested in knowing which graphics format works best in Access 2007
when the destination is PDF. I have tried gif, jpeg, and tiff. And I have
tried copying a graphic directly from PowerPoint into an Access Report, which
works best.

Does anyone have a better solution? My problem is with an oval. It is
jagged. Text looks great.

Also, what is the difference between using "Image" and using "Logo?"

Thanks.

David

  #35  
Old June 6th, 2010, 12:53 AM posted to microsoft.public.access
none
external usenet poster
 
Posts: 22
Default no


.

  #36  
Old June 6th, 2010, 12:59 AM posted to microsoft.public.access
nonoe nonone
external usenet poster
 
Posts: 5
Default nonoe

nonoe



jeramie francis wrote:

woman lie a"Proposal Doctor" wrote:
23-Oct-09

woman lie a

"Proposal Doctor" wrote:

Previous Posts In This Thread:

On Friday, October 23, 2009 5:20 PM
Proposal Doctor wrote:

Graphics to PDF
I am interested in knowing which graphics format works best in Access 2007
when the destination is PDF. I have tried gif, jpeg, and tiff. And I have
tried copying a graphic directly from PowerPoint into an Access Report, which
works best.

Does anyone have a better solution? My problem is with an oval. It is
jagged. Text looks great.

Also, what is the difference between using "Image" and using "Logo?"

Thanks.

David

On Friday, October 23, 2009 6:24 PM
Arvin Meyer [MVP] wrote:

Vector files do not leave jagged edges.
Vector files do not leave jagged edges. Try using a WMF format


An image is any image, a logo is an image that is a symbol for a corporate
entity.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

On Friday, October 23, 2009 7:34 PM
jeramie francis wrote:

woman lie a"Proposal Doctor" wrote:
woman lie a

"Proposal Doctor" wrote:

On Friday, October 23, 2009 7:51 PM
jeramie francis wrote:

"jeramie francis" wrote:
"jeramie francis" wrote:

On Friday, October 23, 2009 8:18 PM
jeramie francis wrote:

"jeramie francis" wrote:jeramie francis good i am boy i am that a tobo
"jeramie francis" wrote:

jeramie francis good i am boy i am that a tobo

On Friday, October 23, 2009 8:27 PM
jeramie francis wrote:

jeramie francis i not sin"jeramie francis" wrote:
jeramie francis i not sin

"jeramie francis" wrote:

On Friday, October 23, 2009 9:18 PM
jeramie francis wrote:

"jeramie francis" wrote:THINK YOU HLEP ME TUO I AM 21 YEAR OLD
"jeramie francis" wrote:

THINK YOU HLEP ME TUO I AM 21 YEAR OLD

On Monday, November 23, 2009 3:18 PM
jeramie francis wrote:




On Monday, November 23, 2009 3:19 PM
jeramie francis wrote:




On Monday, November 23, 2009 3:20 PM
jeramie francis wrote:

"jeramie francis" wrote:
"jeramie francis" wrote:

On Monday, November 23, 2009 3:21 PM
jeramie francis wrote:

":
":

On Monday, November 23, 2009 3:23 PM
jeramie francis wrote:




On Monday, November 23, 2009 3:24 PM
jeramie francis wrote:

"
"

On Wednesday, December 16, 2009 4:18 PM
James A. Fortune wrote:

For those creating PDF files directly from Access or from a PDFcreation tool
For those creating PDF files directly from Access or from a PDF
creation tool (i.e., without using the A2K7 PDF Add-In), perhaps the
following solution for a vector ellipse will work until I come up with
something better.

Objective: Draw an ellipse centered at (X, Y) pts with eccentricity e
used to stretch a circle along the X-Axis using the existing brush
color, or (R,G,B) values if they are specified.

Although stretching out a circle is simpler than creating an ellipse
from scratch, it has a disadvantage that the width of the line also
stretches, making the boundary tenuous near the minor axis. That
might look O.K. for smaller ellipses or ones having only a slight
eccentricity (1 = perfectly round). I checked that the center of the
circle did not change when stretching by marking the center of the
original circle after the ellipse was created and the graphics
environment restored, but I did not actually measure it on the printed
page, so it is possible that the origin moves when the circle is
stretched.

'Begin module code
Public Function DrawFlatEllipse(ByVal dblEccentricity As Double, ByVal
dblX As Double, ByVal dblY As Double, ByVal dblR As Double, ByVal
dblLineWidth As Double, Optional dblRed As Double = -1, Optional
dblGreen As Double, Optional dblBlue As Double) As String
Dim P1x As Double
Dim P1y As Double
Dim P1ux As Double
Dim P1uy As Double
Dim P1dx As Double
Dim P1dy As Double
Dim P2x As Double
Dim P2y As Double
Dim P2rx As Double
Dim P2ry As Double
Dim P2lx As Double
Dim P2ly As Double
Dim P3x As Double
Dim P3y As Double
Dim P3ux As Double
Dim P3uy As Double
Dim P3dx As Double
Dim P3dy As Double
Dim P4x As Double
Dim P4y As Double
Dim P4rx As Double
Dim P4ry As Double
Dim P4lx As Double
Dim P4ly As Double
Dim strTemp As String
Dim strCR As String

strCR = Chr(13)
P1x = dblX + dblR
P1y = dblY
P1ux = P1x
P1uy = P1y + CRatio * dblR
P1dx = P1x
P1dy = P1y - CRatio * dblR
P2x = dblX
P2y = dblY + dblR
P2rx = P2x + CRatio * dblR
P2ry = P2y
P2lx = P2x - CRatio * dblR
P2ly = P2y
P3x = dblX - dblR
P3y = dblY
P3ux = P3x
P3uy = P3y + CRatio * dblR
P3dx = P3x
P3dy = P3y - CRatio * dblR
P4x = dblX
P4y = dblY - dblR
P4rx = P4x + CRatio * dblR
P4ry = P4y
P4lx = P4x - CRatio * dblR
P4ly = P4y
strTemp = "q" & strCR
strTemp = strTemp & CStr(dblLineWidth) & " w" & strCR
If dblRed -1 Then
strTemp = strTemp & CStr(dblRed) & " " & CStr(dblGreen) & " " & CStr
(dblBlue) & " rg" & strCR
End If
'Set a new graphics origin at P4x, P3y
strTemp = strTemp & "1 0 0 1 " & CStr(P4x) & " " & CStr(P3y) & " cm" &
strCR
'Change the scale in the x direction, use dblEccentricity
strTemp = strTemp & CStr(Round(1 / dblEccentricity, 4)) & " 0 0 1 0 0
cm" & strCR
'Move to the right side of the circle

On Friday, December 18, 2009 9:55 PM
James A. Fortune wrote:

wrote:Here is a sample of a PDF ellipse created from A97 using about 28Bezier
wrote:


Here is a sample of a PDF ellipse created from A97 using about 28
Bezier curves.

https://files.oakland.edu/users/fort...rueEllipse.pdf

It should be possible to apply a coordinate transformation in order to
tilt the ellipse any amount and still have it be fairly smooth.

James A. Fortune


On Sunday, December 20, 2009 12:45 AM
James A. Fortune wrote:

wrote:I worked some more on getting the PDF ellipses smoother, plus I
wrote:


I worked some more on getting the PDF ellipses smoother, plus I am
including the code I used to create the layout as input to the
PDFLayoutViewer (modified with a Landscape option):

https://files.oakland.edu/users/fort...ueEllipse2.pdf

Note that I specify the lengths of the major and minor axes instead of
using the eccentricity. It would not be difficult to free the delta
angle from its current limitations.

'Code behind form
Dim strOut As String
Dim strFileOut As String
Dim strCR As String

strCR = Chr(13)

strFileOut = "C:\TrueEllipseLayout.txt"
'Mark the center of the ellipse with a crosshair
strOut = "0.3 w" & strCR
strOut = strOut & "195 500 m" & strCR
strOut = strOut & "205 500 l" & strCR
strOut = strOut & "200 495 m" & strCR
strOut = strOut & "200 505 l" & strCR
strOut = strOut & "S" & strCR
strOut = strOut & DrawTrueEllipse(200, 500, 30, 80, 50, 0, 0, 0.42353)
Open strFileOut For Output As #1
Print #1, strOut
Close
MsgBox ("Done.")
'End Code behind form

'Begin Module Code

Public Type Curve
DX As Double
DY As Double
L1 As Double
Alpha As Double
L4 As Double
Beta As Double
End Type

Public Type PiecewiseCurve
Curves(300) As Curve
End Type

Public Function DrawTrueEllipse(dblX As Double, dblY As Double, N As
Integer, dblA As Double, dblB As Double, Optional dblR As Double = -1,
Optional dblG As Double, Optional dblBlue As Double) As String
Dim strTemp As String
Dim strCR As String
Dim thePiecewiseCurve As PiecewiseCurve
Dim I As Integer
Dim DeltaTheta As Integer
Dim Theta As Integer
Dim dblCurX As Double
Dim dblCurY As Double
Dim X1 As Double
Dim X2 As Double
Dim Y1 As Double
Dim Y2 As Double
Dim NSeg As Integer
Dim boolSuccess As Boolean
Dim dblRefAngle As Double
Const DegToRad = 0.0174532925

'dblA = Half the major axis in pts.
'dblB = Half the minor axis in pts.

'For now use N's that go into 360 evenly
DeltaTheta = 360 / N
NSeg = 0
dblCurX = 0
dblCurY = 0
X1 = 0
Y1 = 0
X2 = 0
Y2 = 0
For Theta = 0 To (360 - DeltaTheta) Step DeltaTheta
NSeg = NSeg + 1
X1 = X2

On Sunday, December 20, 2009 2:54 AM
James A. Fortune wrote:

wrote:It would probably be nice to show code for the following
wrote:



It would probably be nice to show code for the following also:

GetXY()
GetReferenceAngle()
GetBezierAngle()

Public Function GetXY(dblA As Double, dblB As Double, dblTheta As
Double, ByRef dblX As Double, ByRef dblY As Double) As Boolean
Dim dblDenom As Double
Dim dblAbsX As Double
Dim dblAbsY As Double
Const DegToRad = 0.0174532925

GetXY = True
If dblTheta = -90 Or dblTheta = 90 Then
dblX = 0
dblY = Sgn(dblTheta) * dblB
Exit Function
End If
If dblTheta = 0 Then
dblX = dblA
dblY = 0
Exit Function
End If
If dblTheta = 180 Then
dblX = -dblA
dblY = 0
Exit Function
End If
dblDenom = dblB * dblB + dblA * dblA * Tan(dblTheta * DegToRad) * Tan
(dblTheta * DegToRad)
'calculate the absolute value of x and y
dblAbsX = (dblA * dblB) / Sqr(dblDenom)
dblAbsY = dblAbsX * Abs(Tan(dblTheta * DegToRad))
Select Case dblTheta
Case Is 90#:
dblX = dblAbsX
dblY = dblAbsY
Case Is 180#:
dblX = -dblAbsX
dblY = dblAbsY
Case Is 270#:
dblX = -dblAbsX
dblY = -dblAbsY
Case Else
dblX = dblAbsX
dblY = -dblAbsY
End Select
End Function

Public Function GetReferenceAngle(dblTheta As Double, dblX As Double,
dblY As Double, dblA As Double, dblB As Double) As Double
Dim dblReferenceAngle As Double
Const DegToRad = 0.0174532925

GetReferenceAngle = 0
If dblTheta = 0 Or dblTheta = 360 Then
GetReferenceAngle = 90
Exit Function
End If
If dblTheta = 180 Then
GetReferenceAngle = -90
Exit Function
End If
GetReferenceAngle = Atn(dydx(dblA, dblB, dblX, dblY)) / DegToRad
End Function

Public Function dydx(dblA As Double, dblB As Double, dblCurX As
Double, dblCurY As Double) As Double
dydx = -dblB * dblB * dblCurX / (dblA * dblA * dblCurY)
End Function

Public Function GetBezierAngle(dblTheta As Double, dblReferenceAngle
As Double, strAlphaBeta As String) As Double
GetBezierAngle = 0
If dblTheta 360 Then dblTheta = dblTheta - 360
If strAlphaBeta = "Alpha" Then
Select Case dblTheta
Case Is 180:
GetBezierAngle = dblReferenceAngle + 180#
Case Else
GetBezierAngle = dblReferenceAngle
End Select
Else
Select Case dblTheta
Case Is 180:
GetBezierAngle = dblReferenceAngle + 180#

On Tuesday, February 09, 2010 2:42 PM
arlene ramirez wrote:

jeramie bellmay


On Tuesday, February 09, 2010 2:43 PM
arlene ramirez wrote:

jeramie bellmay


On Tuesday, February 09, 2010 2:45 PM
arlene ramirez wrote:

jeramie bellmay?
" wrote:

On Tuesday, February 09, 2010 2:47 PM
arlene ramirez wrote:

jeramie bellmay?
"jeramie bellmay" wrote:

On Tuesday, February 09, 2010 2:48 PM
arlene ramirez wrote:

jeramie bellmay
"arlene ramirez" wrote:

On Tuesday, February 09, 2010 2:49 PM
arlene ramirez wrote:

jeramie bellmay?
"arlene ramirez wrote:

On Tuesday, February 09, 2010 2:50 PM
arlene ramirez wrote:

jeramie bellmay
arlene ramirez" wrote:

On Tuesday, February 09, 2010 2:52 PM
arlene ramirez wrote:

jeramie bellmay
"Proposal Doctor" wrote: arlene ramirez

On Friday, June 04, 2010 7:59 PM
nonoe nonone wrote:

no
no

On Friday, June 04, 2010 8:00 PM
nonoe nonone wrote:

no
no

On Friday, June 04, 2010 8:19 PM
nonoe nonone wrote:

no
i not doin nunning i not sent nunning

On Friday, June 04, 2010 8:34 PM
none wrote:

i am not doin nunning sent y som one doin soming ok
i am not doin nunning sent y som one doin soming ok

On Saturday, June 05, 2010 2:13 AM
none wrote:




On Saturday, June 05, 2010 4:15 PM
nonoe nonone wrote:

none
no i not don sent nunning ok who no web on name on it
ok i need som help ok

On Saturday, June 05, 2010 5:04 PM
nonoe nonone wrote:

nonoe
no i not donin nuning ok
i not sent and who on name on web
som one help me

On Saturday, June 05, 2010 6:14 PM
nonoe nonone wrote:

none
no who on web
doning not nuning sent that


Submitted via EggHeadCafe - Software Developer Portal of Choice
Entity Framework 4.0 POCO-First development and POCO Template
http://www.eggheadcafe.com/tutorials...k-40-poco.aspx
 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 11:49 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.