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
' ############### ############### ############### ############
4  3188 
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
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.
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
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.
:-)
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics | |
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,
|
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...
|
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
|
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...
|
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...
| | |
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.)
|
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:
|
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/
|
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".
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
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,...
| | |
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...
|
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...
|
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...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
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...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
| | |
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| |
