473,854 Members | 1,428 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Creating PDFs from Access 2003 on Windows XP

I used to be able to create PDFs, automatically save them to a file,
and mail them out to people. This was on Access 97 with Windows NT.
We've changed to Windows XP and Access 2003. Doesn't work anymore.
Part of the problem is that the users have no access to the registry
and can only save files on the C:\ drive to their My Documents folder.
I found this code on the web, but it doesn't work either. The files
continue to print out of my printer instead of making a PDF. I put the
entire code at the bottom, but here is the part I'm calling:
Public Sub SaveReportAsPDF (strReportName As String, strPath As String)

If Dir("C:\default printer.bat") <> "defaultprinter .bat" Then
Call AddDefaultPrint erBat
sSleep (5000)
End If

Dim strOldDefault As String
Dim RetVal As Variant

strOldDefault = _
Left(QueryKey(" Software\Micros oft\Windows
NT\CurrentVersi on\Windows", "Device"), _
InStr(1, QueryKey("Softw are\Microsoft\W indows
NT\CurrentVersi on\Windows", _
"Device"), ",") - 1)

RetVal = Shell("C:\defau ltprinter.bat " & Chr(34) & "Acrobat
PDFWriter" & Chr(34), vbMinimizedNoFo cus)

'SetKeyValue "Software\Micro soft\Windows
NT\CurrentVersi on\Windows", "Device", "Acrobat
PDFWriter,winsp ool,LPT1:", REG_SZ

SetKeyValue "Software\Adobe \Acrobat PDFWriter", "PDFFilenam e",
strPath, REG_SZ

SetKeyValue "Software\Adobe \Acrobat PDFWriter", "bExecViewe r", 0,
REG_SZ

sSleep (5000)

DoCmd.OpenRepor t strReportName

RetVal = Shell("C:\defau ltprinter.bat " & Chr(34) & strOldDefault &
Chr(34), vbMinimizedNoFo cus)

'SetKeyValue "Software\Micro soft\Windows
NT\CurrentVersi on\Windows", "Device", strOldDefault, REG_SZ

End Sub
1. What is sSleep? When I compile it kicks out.
2. The 'defaultprinter .bat' thing doesn't work and it leaves an open
DOS screen on my PC.
HELP! I'm dying here.

Thanks in advance,
Laura


The entire code:

' ############### ############### ############### ############
Option Compare Database

Public Const REG_SZ As Long = 1
Public Const REG_DWORD As Long = 4

Public Const HKEY_CLASSES_RO OT = &H80000000
Public Const HKEY_CURRENT_US ER = &H80000001
Public Const HKEY_LOCAL_MACH INE = &H80000002
Public Const HKEY_USERS = &H80000003

Public Const ERROR_NONE = 0
Public Const ERROR_BADDB = 1
Public Const ERROR_BADKEY = 2
Public Const ERROR_CANTOPEN = 3
Public Const ERROR_CANTREAD = 4
Public Const ERROR_CANTWRITE = 5
Public Const ERROR_OUTOFMEMO RY = 6
Public Const ERROR_ARENA_TRA SHED = 7
Public Const ERROR_ACCESS_DE NIED = 8
Public Const ERROR_INVALID_P ARAMETERS = 87
Public Const ERROR_NO_MORE_I TEMS = 259

Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_ALL_ACCESS = &H3F

Public Const REG_OPTION_NON_ VOLATILE = 0

Declare Function RegCloseKey Lib "advapi32.d ll" _
(ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32.d ll" Alias _
"RegCreateKeyEx A" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions _
As Long, ByVal samDesired As Long, ByVal lpSecurityAttri butes _
As Long, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.d ll" Alias _
"RegOpenKey ExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As _
Long) As Long
Declare Function RegQueryValueEx String Lib "advapi32.d ll" Alias _
"RegQueryValueE xA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As String, lpcbData As Long) As Long
Declare Function RegQueryValueEx Long Lib "advapi32.d ll" Alias _
"RegQueryValueE xA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, lpData As _
Long, lpcbData As Long) As Long
Declare Function RegQueryValueEx NULL Lib "advapi32.d ll" Alias _
"RegQueryValueE xA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As Long, lpcbData As Long) As Long
Declare Function RegSetValueExSt ring Lib "advapi32.d ll" Alias _
"RegSetValueExA " (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As _
String, ByVal cbData As Long) As Long
Declare Function RegSetValueExLo ng Lib "advapi32.d ll" Alias _
"RegSetValueExA " (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, _
ByVal cbData As Long) As Long

Public Sub SaveReportAsPDF (strReportName As String, strPath As String)

If Dir("C:\default printer.bat") <> "defaultprinter .bat" Then
Call AddDefaultPrint erBat
sSleep (5000)
End If

Dim strOldDefault As String
Dim RetVal As Variant

strOldDefault = _
Left(QueryKey(" Software\Micros oft\Windows
NT\CurrentVersi on\Windows", "Device"), _
InStr(1, QueryKey("Softw are\Microsoft\W indows
NT\CurrentVersi on\Windows", _
"Device"), ",") - 1)

RetVal = Shell("C:\defau ltprinter.bat " & Chr(34) & "Acrobat
PDFWriter" & Chr(34), vbMinimizedNoFo cus)

'SetKeyValue "Software\Micro soft\Windows
NT\CurrentVersi on\Windows", "Device", "Acrobat
PDFWriter,winsp ool,LPT1:", REG_SZ

SetKeyValue "Software\Adobe \Acrobat PDFWriter", "PDFFilenam e",
strPath, REG_SZ

SetKeyValue "Software\Adobe \Acrobat PDFWriter", "bExecViewe r", 0,
REG_SZ

sSleep (5000)

DoCmd.OpenRepor t strReportName

RetVal = Shell("C:\defau ltprinter.bat " & Chr(34) & strOldDefault &
Chr(34), vbMinimizedNoFo cus)

'SetKeyValue "Software\Micro soft\Windows
NT\CurrentVersi on\Windows", "Device", strOldDefault, REG_SZ

End Sub

Public Function SetValueEx(ByVa l hKey As Long, sValueName As String,
_
lType As Long, vValue As Variant) As Long
Dim lValue As Long
Dim sValue As String
Select Case lType
Case REG_SZ
sValue = vValue & Chr$(0)
SetValueEx = RegSetValueExSt ring(hKey, sValueName, 0&, _
lType, sValue,
Len(sValue))
Case REG_DWORD
lValue = vValue
SetValueEx = RegSetValueExLo ng(hKey, sValueName, 0&, _
lType, lValue, 4)
End Select
End Function

Function QueryValueEx(By Val lhKey As Long, ByVal szValueName As _
String, vValue As Variant) As Long
Dim cch As Long
Dim lrc As Long
Dim lType As Long
Dim lValue As Long
Dim sValue As String

On Error GoTo QueryValueExErr or

' Determine the size and type of data to be read
lrc = RegQueryValueEx NULL(lhKey, szValueName, 0&, lType, 0&,
cch)
If lrc <> ERROR_NONE Then Error 5

Select Case lType
' For strings
Case REG_SZ:
sValue = String(cch, 0)

lrc = RegQueryValueEx String(lhKey, szValueName, 0&, lType, _
sValue, cch)
If lrc = ERROR_NONE Then
vValue = Left$(sValue, cch - 1)
Else
vValue = Empty
End If
' For DWORDS
Case REG_DWORD:
lrc = RegQueryValueEx Long(lhKey, szValueName, 0&, lType, _
lValue, cch)
If lrc = ERROR_NONE Then vValue = lValue
Case Else
'all other data types not supported
lrc = -1
End Select

QueryValueExExi t:
QueryValueEx = lrc
Exit Function

QueryValueExErr or:
Resume QueryValueExExi t
End Function

Public Function CreateNewKey(sN ewKeyName As String, lPredefinedKey As
Long)

Dim hNewKey As Long ' Handle to the new key
Dim lRetVal As Long ' Result of the RegCreateKeyEx function

lRetVal = RegCreateKeyEx( lPredefinedKey, sNewKeyName, 0&,
vbNullString, REG_OPTION_NON_ VOLATILE, _
KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)

RegCloseKey (hNewKey)

End Function

Public Function SetKeyValue(sKe yName As String, sValueName As String,
vValueSetting As Variant, lValueType As Long)

Dim lRetVal As Long ' Result of the SetValueEx function
Dim hKey As Long ' Handle of open key

' Open the specified key
lRetVal = RegOpenKeyEx(HK EY_CURRENT_USER , sKeyName, 0,
KEY_SET_VALUE, hKey)

lRetVal = SetValueEx(hKey , sValueName, lValueType, vValueSetting)

RegCloseKey (hKey)

End Function

Public Function QueryKey(sKeyNa me As String, sValueName As String)

Dim lRetVal As Long ' Result of the API functions
Dim hKey As Long ' Handle of opened key
Dim vValue As Variant ' Setting of queried value

lRetVal = RegOpenKeyEx(HK EY_CURRENT_USER , sKeyName, 0,
KEY_QUERY_VALUE , hKey)

lRetVal = QueryValueEx(hK ey, sValueName, vValue)

QueryKey = vValue

RegCloseKey (hKey)

End Function

Public Sub AddDefaultPrint erBat()

Dim hFile As Long

hFile = FreeFile

Open "C:\defaultprin ter.bat" For Output Access Write As hFile

Print #hFile, "rundll32 printui.dll,Pri ntUIEntry /y /n %1"

Close hFile

End Sub
' ############### ############### ############### ############

Nov 13 '05 #1
4 3215
MaC

Uzytkownik "musiclover lch" <lh****@gmail.c om> napisal w wiadomosci
news:11******** ************@o1 3g2000cwo.googl egroups.com...
I used to be able to create PDFs, automatically save them to a file,
and mail them out to people. This was on Access 97 with Windows NT.
We've changed to Windows XP and Access 2003. Doesn't work anymore.
Part of the problem is that the users have no access to the registry
and can only save files on the C:\ drive to their My Documents folder.
I found this code on the web, but it doesn't work either. The files
continue to print out of my printer instead of making a PDF. I put the
entire code at the bottom, but here is the part I'm calling:
Public Sub SaveReportAsPDF (strReportName As String, strPath As String)

If Dir("C:\default printer.bat") <> "defaultprinter .bat" Then
Call AddDefaultPrint erBat
sSleep (5000)
End If

Dim strOldDefault As String
Dim RetVal As Variant

strOldDefault = _
Left(QueryKey(" Software\Micros oft\Windows
NT\CurrentVersi on\Windows", "Device"), _
InStr(1, QueryKey("Softw are\Microsoft\W indows
NT\CurrentVersi on\Windows", _
"Device"), ",") - 1)

RetVal = Shell("C:\defau ltprinter.bat " & Chr(34) & "Acrobat
PDFWriter" & Chr(34), vbMinimizedNoFo cus)

'SetKeyValue "Software\Micro soft\Windows
NT\CurrentVersi on\Windows", "Device", "Acrobat
PDFWriter,winsp ool,LPT1:", REG_SZ

SetKeyValue "Software\Adobe \Acrobat PDFWriter", "PDFFilenam e",
strPath, REG_SZ

SetKeyValue "Software\Adobe \Acrobat PDFWriter", "bExecViewe r", 0,
REG_SZ

sSleep (5000)

DoCmd.OpenRepor t strReportName

RetVal = Shell("C:\defau ltprinter.bat " & Chr(34) & strOldDefault &
Chr(34), vbMinimizedNoFo cus)

'SetKeyValue "Software\Micro soft\Windows
NT\CurrentVersi on\Windows", "Device", strOldDefault, REG_SZ

End Sub
1. What is sSleep? When I compile it kicks out.
2. The 'defaultprinter .bat' thing doesn't work and it leaves an open
DOS screen on my PC.
HELP! I'm dying here.

Thanks in advance,
Laura


The entire code:

' ############### ############### ############### ############
Option Compare Database

Public Const REG_SZ As Long = 1
Public Const REG_DWORD As Long = 4

Public Const HKEY_CLASSES_RO OT = &H80000000
Public Const HKEY_CURRENT_US ER = &H80000001
Public Const HKEY_LOCAL_MACH INE = &H80000002
Public Const HKEY_USERS = &H80000003

Public Const ERROR_NONE = 0
Public Const ERROR_BADDB = 1
Public Const ERROR_BADKEY = 2
Public Const ERROR_CANTOPEN = 3
Public Const ERROR_CANTREAD = 4
Public Const ERROR_CANTWRITE = 5
Public Const ERROR_OUTOFMEMO RY = 6
Public Const ERROR_ARENA_TRA SHED = 7
Public Const ERROR_ACCESS_DE NIED = 8
Public Const ERROR_INVALID_P ARAMETERS = 87
Public Const ERROR_NO_MORE_I TEMS = 259

Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_ALL_ACCESS = &H3F

Public Const REG_OPTION_NON_ VOLATILE = 0

Declare Function RegCloseKey Lib "advapi32.d ll" _
(ByVal hKey As Long) As Long
Declare Function RegCreateKeyEx Lib "advapi32.d ll" Alias _
"RegCreateKeyEx A" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions _
As Long, ByVal samDesired As Long, ByVal lpSecurityAttri butes _
As Long, phkResult As Long, lpdwDisposition As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.d ll" Alias _
"RegOpenKey ExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As _
Long) As Long
Declare Function RegQueryValueEx String Lib "advapi32.d ll" Alias _
"RegQueryValueE xA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As String, lpcbData As Long) As Long
Declare Function RegQueryValueEx Long Lib "advapi32.d ll" Alias _
"RegQueryValueE xA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, lpData As _
Long, lpcbData As Long) As Long
Declare Function RegQueryValueEx NULL Lib "advapi32.d ll" Alias _
"RegQueryValueE xA" (ByVal hKey As Long, ByVal lpValueName As _
String, ByVal lpReserved As Long, lpType As Long, ByVal lpData _
As Long, lpcbData As Long) As Long
Declare Function RegSetValueExSt ring Lib "advapi32.d ll" Alias _
"RegSetValueExA " (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As _
String, ByVal cbData As Long) As Long
Declare Function RegSetValueExLo ng Lib "advapi32.d ll" Alias _
"RegSetValueExA " (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, _
ByVal cbData As Long) As Long

Public Sub SaveReportAsPDF (strReportName As String, strPath As String)

If Dir("C:\default printer.bat") <> "defaultprinter .bat" Then
Call AddDefaultPrint erBat
sSleep (5000)
End If

Dim strOldDefault As String
Dim RetVal As Variant

strOldDefault = _
Left(QueryKey(" Software\Micros oft\Windows
NT\CurrentVersi on\Windows", "Device"), _
InStr(1, QueryKey("Softw are\Microsoft\W indows
NT\CurrentVersi on\Windows", _
"Device"), ",") - 1)

RetVal = Shell("C:\defau ltprinter.bat " & Chr(34) & "Acrobat
PDFWriter" & Chr(34), vbMinimizedNoFo cus)

'SetKeyValue "Software\Micro soft\Windows
NT\CurrentVersi on\Windows", "Device", "Acrobat
PDFWriter,winsp ool,LPT1:", REG_SZ

SetKeyValue "Software\Adobe \Acrobat PDFWriter", "PDFFilenam e",
strPath, REG_SZ

SetKeyValue "Software\Adobe \Acrobat PDFWriter", "bExecViewe r", 0,
REG_SZ

sSleep (5000)

DoCmd.OpenRepor t strReportName

RetVal = Shell("C:\defau ltprinter.bat " & Chr(34) & strOldDefault &
Chr(34), vbMinimizedNoFo cus)

'SetKeyValue "Software\Micro soft\Windows
NT\CurrentVersi on\Windows", "Device", strOldDefault, REG_SZ

End Sub

Public Function SetValueEx(ByVa l hKey As Long, sValueName As String,
_
lType As Long, vValue As Variant) As Long
Dim lValue As Long
Dim sValue As String
Select Case lType
Case REG_SZ
sValue = vValue & Chr$(0)
SetValueEx = RegSetValueExSt ring(hKey, sValueName, 0&, _
lType, sValue,
Len(sValue))
Case REG_DWORD
lValue = vValue
SetValueEx = RegSetValueExLo ng(hKey, sValueName, 0&, _
lType, lValue, 4)
End Select
End Function

Function QueryValueEx(By Val lhKey As Long, ByVal szValueName As _
String, vValue As Variant) As Long
Dim cch As Long
Dim lrc As Long
Dim lType As Long
Dim lValue As Long
Dim sValue As String

On Error GoTo QueryValueExErr or

' Determine the size and type of data to be read
lrc = RegQueryValueEx NULL(lhKey, szValueName, 0&, lType, 0&,
cch)
If lrc <> ERROR_NONE Then Error 5

Select Case lType
' For strings
Case REG_SZ:
sValue = String(cch, 0)

lrc = RegQueryValueEx String(lhKey, szValueName, 0&, lType, _
sValue, cch)
If lrc = ERROR_NONE Then
vValue = Left$(sValue, cch - 1)
Else
vValue = Empty
End If
' For DWORDS
Case REG_DWORD:
lrc = RegQueryValueEx Long(lhKey, szValueName, 0&, lType, _
lValue, cch)
If lrc = ERROR_NONE Then vValue = lValue
Case Else
'all other data types not supported
lrc = -1
End Select

QueryValueExExi t:
QueryValueEx = lrc
Exit Function

QueryValueExErr or:
Resume QueryValueExExi t
End Function

Public Function CreateNewKey(sN ewKeyName As String, lPredefinedKey As
Long)

Dim hNewKey As Long ' Handle to the new key
Dim lRetVal As Long ' Result of the RegCreateKeyEx function

lRetVal = RegCreateKeyEx( lPredefinedKey, sNewKeyName, 0&,
vbNullString, REG_OPTION_NON_ VOLATILE, _
KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)

RegCloseKey (hNewKey)

End Function

Public Function SetKeyValue(sKe yName As String, sValueName As String,
vValueSetting As Variant, lValueType As Long)

Dim lRetVal As Long ' Result of the SetValueEx function
Dim hKey As Long ' Handle of open key

' Open the specified key
lRetVal = RegOpenKeyEx(HK EY_CURRENT_USER , sKeyName, 0,
KEY_SET_VALUE, hKey)

lRetVal = SetValueEx(hKey , sValueName, lValueType, vValueSetting)

RegCloseKey (hKey)

End Function

Public Function QueryKey(sKeyNa me As String, sValueName As String)

Dim lRetVal As Long ' Result of the API functions
Dim hKey As Long ' Handle of opened key
Dim vValue As Variant ' Setting of queried value

lRetVal = RegOpenKeyEx(HK EY_CURRENT_USER , sKeyName, 0,
KEY_QUERY_VALUE , hKey)

lRetVal = QueryValueEx(hK ey, sValueName, vValue)

QueryKey = vValue

RegCloseKey (hKey)

End Function

Public Sub AddDefaultPrint erBat()

Dim hFile As Long

hFile = FreeFile

Open "C:\defaultprin ter.bat" For Output Access Write As hFile

Print #hFile, "rundll32 printui.dll,Pri ntUIEntry /y /n %1"

Close hFile

End Sub
' ############### ############### ############### ############


sSleep seems to be an API function Sleep (it stops code executing for some
time ,for example sSleep(5000) making it for 5 seconds ).
Probably you don't have the properly declaration.
I suppose it can be done as in following code:

---Posted by Dev Ashish---

----------------------------------------
API: Make it "Sleep"
----------------------------------------

More than a few people have asked me if an alternative to DoEvents
exists to implement a wait period in Access. (DoEvents yields execution so
that the operating system can process other events.)

The answer is yes, the Sleep API can be used for this. Look at the
sample sTestSleep Sub. When you run it, you'll notice a delay beforethe
Msgbox appears on screen. The duration can be increased/decreased bychanging
the constant cTime to a corressponding higher/lower value.

For normal use from within your code, simply place a call to the sSleep
sub with an appropriate time in milliseconds.

'************** *** Code Start *************** ****
'This code was originally written by Dev Ashish.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code Courtesy of
'Dev Ashish
'
Private Declare Sub sapiSleep Lib "kernel32" _
Alias "Sleep" _
(ByVal dwMilliseconds As Long)

Sub sSleep(lngMilli Sec As Long)
If lngMilliSec > 0 Then
Call sapiSleep(lngMi lliSec)
End If
End Sub

Sub sTestSleep()
Const cTIME = 1000 'in MilliSeconds
Call sSleep(cTIME)
MsgBox "Before this Msgbox, I was asleep for " _
& cTIME & " Milliseconds."
End Sub
'************** *** Code End *************** ******

Hi
Mac

Nov 13 '05 #2
A pertinent question is: "Is Adobe Acrobat PDF Writer installed on each
user's machine?" It appears that is what would be used to write the PDF.

Just as an aside, Microsoft recently announced that most components of the
next version of Office (currently called Office 12) will have native
capability to create PDF files, without having Adobe Acrobat or other
third-party software installed. They did _not_ say they were going to
retrofit that to earlier versions.

Larry Linson
Microsoft Access MVP

"musiclover lch" <lh****@gmail.c om> wrote in message
news:11******** ************@o1 3g2000cwo.googl egroups.com...
I used to be able to create PDFs, automatically save them to a file,
and mail them out to people. This was on Access 97 with Windows NT.
We've changed to Windows XP and Access 2003. Doesn't work anymore.

Nov 13 '05 #3
On Wed, 26 Oct 2005 20:46:25 GMT, "Larry Linson"
<bo*****@localh ost.not> wrote:
A pertinent question is: "Is Adobe Acrobat PDF Writer installed on each
user's machine?" It appears that is what would be used to write the PDF.

Just as an aside, Microsoft recently announced that most components of the
next version of Office (currently called Office 12) will have native
capability to create PDF files, without having Adobe Acrobat or other
third-party software installed. They did _not_ say they were going to
retrofit that to earlier versions.


Be very wary. OO2.0 has the ability already built in. A simple page
is 17k. It is only 2k in PDFCREATOR.

Built-in != Good to Use

George
Nov 13 '05 #4
Yes, PDF Writer is installed on each users machine. We can create PDFs
fine, just can't print one to a file name.

Thanks so responding.
:-)

Nov 13 '05 #5

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

11
3780
by: Wolfgang Kaml | last post by:
Hello All, I have been working on this for almost a week now and I haven't anything up my sleeves anymore that I could test in addition or change.... Since I am not sure, if this is a Windows 2003 Server or ADO or ODBC issue, I am posting this on all of the three newsgroups. That's the setup: Windows 2003 Server with IIS and ASP.NET actiavted Access 2002 mdb file (and yes, proper rights are set on TMP paths and path,
0
1762
by: Robert | last post by:
I get these errors when creating a asp .net web application project in VS 2003 on a remote web server: "Microsoft Development Environment The Web was created successfully, but an error occurred when trying to configure the application root for this Web. Web projects may not operate correctly without an application root. The returned error was: Active Directory Services cannot find the web server. A possible cause for this is an...
3
1566
by: John | last post by:
Hi Is there an activex or something else available that will allow converting of access reports into PDFs programmatically from within access? Thanks Regards
0
500
by: musicloverlch | last post by:
I used to be able to create PDFs, automatically save them to a file, and mail them out to people. This was on Access 97 with Windows NT. We've changed to Windows XP and Access 2003. Doesn't work anymore. Part of the problem is that the users have no access to the registry and can only save files on the C:\ drive to their My Documents folder. I found this code on the web, but it doesn't work either. The files continue to print out of my...
2
2162
by: Pawan | last post by:
Hi Guys, I have this current assignment where I have to develop online forms for local municipal authorities. I have to use adobe acrobat to create online forms from PDFs (which I have never done before and have no idea how to do it). Now these online forms will be shared by 1200 users. VB and ASP will be used as glueware for the writing/coding. For eg, we will be creating navigation pages in ASP & linking into adobe. Any resource on this...
0
1622
by: Peter D. Dunlap | last post by:
I have a number of web sites on my 2003 server, each of the independent sites (i.e., not subdirectories of the localhost site). The way I have always set these up in the past is: 1. Create a directory "MySiteName" and a subdirectory "Site". 2. Share the "Site" subdirectory is "MySiteNameSite$", and give the local administrators group full access to the share. (The login I run under is a member of that group.)
16
9793
by: Asaf | last post by:
I am trying to create and use a COM object with C#.NET 2005. The assembly is set to "Register for COM interop" but when I am trying to call it from VB on Word 2003 I am getting this error: Run-time error '-2147024894 (80070002)': File or assembly name COMTest3, or one of its dependencies, was not found. The code for the COM:
7
4098
by: Zeb | last post by:
Hi all I've developed a shopping cart in C# and to allow moderators to upload product images, news images and downloadable PDFs, the app creates a folder for each product. I start out with the following empty folders: /img/products/ /img/news/ /pdf/
5
5071
by: Aryan | last post by:
Hi, I am using C# with framework 2.0 and creating PDF files on-fly, along with this I am using Windows 2003 Server. I am using Byte to take the data input and then save into pdf format on harddrive location. Now after creating few successful pdf files, I am getting "System.OutOfMemoryException".
0
9751
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
0
11024
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...
0
10679
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
0
10371
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
1
7914
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...
0
7081
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...
0
5741
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
0
5941
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
2
4159
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.