Hello, hope someone can help. I have a request to print word .doc check
lists with selected records in Access for surgery procedure cards. I
have hyperlinked the word doc's to a field in each record, but do not
know how to write the code to open the word doc and print it. I assume
this code should be put in the list box print button. As you can see, I
have two different reports that go out; one (or more) to Surgery, and
one (or more) to SPD (Sterile Processing).
Thanks for any help given.
David
Private Sub cmdPrtRpt_Click()
On Error GoTo Err_cmdPrtRpt_Click
Dim Q As QueryDef, DB As Database
Dim Criteria As String
Dim ctl As Control
Dim Itm As Variant
' Build a list of the selections.
Set ctl = Me![List0]
For Each Itm In ctl.ItemsSelected
If Len(Criteria) = 0 Then
Criteria = Chr(34) & ctl.ItemData(Itm) & Chr(34)
Else
Criteria = Criteria & "," & Chr(34) & ctl.ItemData(Itm) _
& Chr(34)
End If
Next Itm
If Len(Criteria) = 0 Then
Itm = MsgBox("You Must Select at least One Procedure in
the" & _
" List Box!", vbExclamation, "No Selection Made:")
Exit Sub
End If
Set DB = CurrentDb()
Set Q = DB.QueryDefs("qrySelProcCard")
Q.SQL = "SELECT [qryProcCard].* FROM qryProcCard Where
qryProcCard.LstBxAutoNbr In (" & Criteria & ");"
Q.Close
Dim stDocName As String
If cboCopies = 1 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
ElseIf cboCopies = 2 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 3 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 4 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 5 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 6 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 7 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 8 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
End If
DoCmd.Close acForm, "frmSelProcCard", acSaveNo
DoCmd.OpenForm "frmSelProcCard", acNormal, "", "", acEdit, acNormal
Exit_cmdPrtRpt_Click:
Exit Sub
Err_cmdPrtRpt_Click:
MsgBox Err.Description
Resume Exit_cmdPrtRpt_Click
End Sub
3  2376 
David
I have a better solution to your code. Repeating the same command all the
time can cause problems when debugging errors. Try this
Dim intI as Integer
For intI = 1 To cboCopies
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
Next
7 lines of code instead of over 200
Here's even another solution:
Dim intI As Integer
intI = cboCopies
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acPreview
DoCmd.PrintOut , , , , intI
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acPreview
DoCmd.PrintOut , , , , intI
This uses the PrintOut method but I've opened your reports in preview mode
to prevent another copy from being printed.
With your main question to print a word doc, some one else might be able to
help you here.
Jeff
"David" <da****@mail.heartland-health.com> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com... Hello, hope someone can help. I have a request to print word .doc check
lists with selected records in Access for surgery procedure cards. I
have hyperlinked the word doc's to a field in each record, but do not
know how to write the code to open the word doc and print it. I assume
this code should be put in the list box print button. As you can see, I
have two different reports that go out; one (or more) to Surgery, and
one (or more) to SPD (Sterile Processing).
Thanks for any help given.
David
Private Sub cmdPrtRpt_Click()
On Error GoTo Err_cmdPrtRpt_Click
Dim Q As QueryDef, DB As Database
Dim Criteria As String
Dim ctl As Control
Dim Itm As Variant
' Build a list of the selections.
Set ctl = Me![List0]
For Each Itm In ctl.ItemsSelected
If Len(Criteria) = 0 Then
Criteria = Chr(34) & ctl.ItemData(Itm) & Chr(34)
Else
Criteria = Criteria & "," & Chr(34) & ctl.ItemData(Itm) _
& Chr(34)
End If
Next Itm
If Len(Criteria) = 0 Then
Itm = MsgBox("You Must Select at least One Procedure in
the" & _
" List Box!", vbExclamation, "No Selection Made:")
Exit Sub
End If
Set DB = CurrentDb()
Set Q = DB.QueryDefs("qrySelProcCard")
Q.SQL = "SELECT [qryProcCard].* FROM qryProcCard Where
qryProcCard.LstBxAutoNbr In (" & Criteria & ");"
Q.Close
Dim stDocName As String
If cboCopies = 1 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
ElseIf cboCopies = 2 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 3 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 4 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 5 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 6 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 7 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
ElseIf cboCopies = 8 Then
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardPrnt"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
stDocName = ""
stDocName = "rptProcCardSpdOnlyPrtToSpd"
DoCmd.OpenReport stDocName, acNormal
End If
DoCmd.Close acForm, "frmSelProcCard", acSaveNo
DoCmd.OpenForm "frmSelProcCard", acNormal, "", "", acEdit, acNormal
Exit_cmdPrtRpt_Click:
Exit Sub
Err_cmdPrtRpt_Click:
MsgBox Err.Description
Resume Exit_cmdPrtRpt_Click
End Sub
print word files from within Access. First, I would be inclined NOT to
store the names as hyperlinks, but as regular text. *Format* them as
hyperlinks if you want, though...
Second... the printing problem...
Automate Word. big deal.
Something like
Public Sub PrintWordDoc(ByVal strDoc As String)
Dim appWord As Word.Application
Dim docWord As Word.Document
If fIsAppRunning("Word") Then
appWord.Activate
Else
Set appWord = New Word.Application
End If
appWord.Documents.Open (strDoc)
appWord.Documents(strDoc).PrintOut
End Sub
Thanks Jeff, I will streamline that code.
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: Steven Stewart |
last post by:
I have a user who has been using Excel for a while to keep statistics
and print reports. She finds using it cumbersome because of long
formulas and a lot of copying and pasting.
I have designed...
|
by: Jeff Harbin |
last post by:
I've got an ACCESS 2000 application that I'm developing. One of the outputs
of this app will be to generate a series of 'jobs' which corresponds to a
record in the database. Each record will be...
|
by: Chris Bazzie |
last post by:
I am using MS Access to index documents (in this case material safety
data sheets), to track what departments they are used in, and to allow
users to browse the actual documents that meet some...
|
by: Grim Reaper |
last post by:
I print mailing labels out of Access 2000 databases about 3 to 4 times a
week. I have been having problems with one thing since I have been printing
mailing labels.
I print mailing labels by...
|
by: Jamey Shuemaker |
last post by:
I've been looking for a way to do a duplex print job without a duplex
printer. I reviewed some old posts about printing odd pages and found
that most of them led to KB article 101075 or an export...
|
by: cyranoVR |
last post by:
This is the approach I used to automate printing of Microsoft Access
reports to PDF format i.e. unattended and without annoying "Save As..."
dialogs, and - more importantly - without having to use...
|
by: Earl Anderson |
last post by:
Using WinXP & AccessXP, I'd like to automatically have the records that I've
just printed in a report automatically updated to have the 'print date &
time' immediately inserted into a 'Date/Time'...
|
by: gregjgman |
last post by:
I'm looking for some code (html, javascript or otherwise) that I can
embed into my web site so that when the user clicks on one button, they
can send all hyperlinked documents on the page to a...
|
by: billelev |
last post by:
Here is some code that I have adapted slightly. It allows a report to be printed to a specific location.
It works by calling SaveReportAsPDF and specifying the access report name, and the root...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: ryjfgjl |
last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
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,...
|
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...
|
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...
| |
