I would like to be able to print PDF Files from MS Access 97. I have a table with records containing all the information necessary to create full pathname of the file (i.e. strPathName). But how do I get it to print (not view) the file once the record is selected from a drop-down box. Do I have to create a module to do this? Or is there some simple trick? If anyone has come code for doing this, it would be much appreciated. Thanks!
I am running Access 2013. I have created a report where the tables are linked to a SQL DB
I am trying to run a sales report that includes an stored image.
I am adding an Image and then using the control source to look up the 'filepath' stored in the DB. When I run the report on screen all the images are showing but when I try to print it (including exporting to PDF or XPS) and Print Preview only 2 of the 9 images print per page. The images are around 2-4 Mb.
I'm guessing its to do with the files sizes but cannot do anything about the size.
My report has tens of pages and I need to save each page as separate file with ID as filename. PDF prints with ID but all in one file. I use this code.
Option Compare Database Private Sub tisk() Dim cesta As String Dim kod As String Dim Sql As String Dim rs As Recordset
The company I am consulting with uses Access 2000 and has no intentions of upgrading. I currently do not own Access on my laptop.
I was planning to purchase Access 2003 for my laptop but am concerned that files I create in 2003 might not be "editable" in 2000 even if I choose the 2000 format when creating new databases.
I'm just wondering if anyone has tried creating a file in 2003 (using the 2000 format - as I'm told you can choose what format you want to use) and then edited it in 2000. I want my client to be able to edit the files in 2000 once I've moved on. (I can get 2003 for about the same price as 2000 - so my preference would be to get 2003.) The other obvious reason for going for 2003 is that I could run into the reverse challenge if I own 2000 and my next client uses 2003. At that point, I'd be forced to upgrade to 2003.
My databases are not complex - but do include some customized macros.
I was having trouble just setting each report with a particular print method - for some reason they just kept forgetting their individual settings and resorting to default on the machine.
This meant reports were printing on the wrong paper, or the wrong size paper, the wrong orientation and some times refusing to print if it couldn't find the paper (which is useful in runtime as it doesn't display error messages)
So I used Reports(rpt).printer properties (I forgot where I found this) to hard code the printer properties into each print command... this meant I had to use another function to insert the variables.
So all I had to do was say:
Code: PrintMe("Invoice","InvoiceID",iID)
and a report would print to exactly how I wanted... but it's just too slow!
See attached for full code, I have a niggling feeling it may be the function: PrinterOK, to make sure the printer exists or not.
Code: Function PrinterOK(sPrinterName As String) As Boolean Dim MyPrinter As Printer PrinterOK = False For Each MyPrinter In Printers If MyPrinter.DeviceName = sPrinterName Then PrinterOK = True Exit Function End If Next End Function
I know it's the printing code, because if I stop the printing and just preview then it shows up almost instantly.
I have a report in access. I have designed the report such that. When a user wants to print there is a prompt for the user to enter the order number.The report displays all the orders for that order number.A number is assigned for that print out.This number is unique for every order number the user enters.
How do i capture the generated print out NUMBER, store it in a table so that when there is another printing for the same order number No NEW PRINT OUT NUMBER is displayed.The user should also be prompted that he/she is printing an already printed orders. However in case of a new order number, the generated print out number should be differnt which should also be stored for future refencing.
I want to be able to create a background image as a watermark for Access Reports when they are printed. Now, as I can figure, the Report has a "Picture" property which I can use to set this.
The catch is, the contents of the background image is not static, it must be generated on-the-fly. (for example, it can contain the date of report generation) So, I think, that's ok. I'll need to create an ActiveX object that will generate the image, then I'll assign the image to the picture property using VBA.
Now, my concern is, can I set it up such that even if users create a new report in the database, this behavior can still be automatically done? Is there a way?
Also, would it be possible to set a background image for query results also?
Here's a weird problem I've had develop in the past couple months, before I upgraded to 2007, and now since I upgraded to 2007.
I've had the same Access database since 1997, and just recently upgraded it to Access2007, but as I said the problem occurred before and after the changeover.
I have two servers at the office. Server #1 (where the database is located) has attached to it is a dot matrix printer, used for printing our 4 part invoices/packing lists. I have another server (#2) which has a laser printer attached to it. The laser printer on server #2 is the default printer for all computers in the office. I have a lot of reports in Access where the printer to be used is the default printer. I have a single report in Access where I specified in the page design and layout to use a specific printer - the dot matrix on server #1.
Both servers are always on. Both printers are always on. I can go for weeks and weeks with no issues in printing the invoices. Then suddenly I'll get a
"This document was previously formatted for the printer (printer name) on (server #1), but that printer isn't available. Do you want use the default printer (\server#2laser printer) ? OK CANCEL SETUP... HELP
It worked fine for 9+ years, and now I am getting this error. No new computers in the last 2 years. No new printer installs in the last 2 years.
I've gone through, uninstalled the printer, reinstalled the printer, both on the server and remote machines, and now I can't even get the report to "remember" that I want it to always print to the dot printer.
Private Sub Command167_Click() On Error GoTo Err_Command167_Click Dim objWordApp As Object Dim objWordDoc As Object Set oApp = CreateObject("Word.Application") 'make word not show up to user objWordApp.Visible = False set objWordDoc = objWordApp.Documents.Open(C:Documents and SettingsUserDesktopEXPRESS DIPLOMA LETTER.doc) objWordDoc.PrintOut 'quits word objWordApp.Quit Set objWordDoc = Nothing Set objWordApp = Nothing Exit_Command167_Click: Exit Sub Err_Command167_Click: MsgBox Err.Description Resume Exit_Command167_Click
End Sub
I am trying to print a letter from access when a comand butting is pressed. It returns syntax error on this line:set objWordDoc = objWordApp.Documents.Open(C:Documents and SettingsUserDesktopEXPRESS DIPLOMA LETTER.doc)
I have an Access Database installed on a server that is accessed remotely by numerous users. I have a button to print out a specific report. The problem is that in order for a user to print the report their print driver must be loaded on the server. Due to the number of users, and the numerous types of printers available, this is impractical. The current code on the button is currently:
Private Sub Command PrintReport Click() Dim strWhere As String strWhere ="[Property Number] = " & Me.[Property Number] DoCmd.OpenReport "RESERVE REQUIREMENT REPORT", acViewNormal, ,strWhere End Sub
I would like to know if there is some code that would send the report to PDF, so that any remote user could then print the report from PDF.
I have 2 single-page Access reports. The first report has the following fields: FirstName, LastName, StreetName, HomeNumber. The second report has the following fields: MerchantA, MerchantB, MerchantC.
The data for the first report are taken from tblBuyers, the data for the second report are taken from tblMerchandise.
I need to print 2 copies of the first report and 4 copies of the second report for the first Buyer, then 2 copies of the first report and 4 copies of the second report for the second Buyer and so on. Can I help on this problem ? Rgds
I have limited users to not show the ribbon, but I need them to be able to print of reports or export them as pdf files how do I give them access only to do this ?
I have an Access program that prints various reports with a button.I would like to view the report in full screen prior to printing, how do you do this?
Hi, this problem came out of nowhere but looks like it's here to stay.
Our Access app generates various Access Reports. Recently we installed a new version of our access app and since that version onwards, all pc's with Office XP/2003 print reports in black & white. Printing to PDF works fine though.
We can't find the reason for this. Which mean we had to go to all our clients to downgrade them from office XP/2003 to 2000!
I have created a from containing names and address. On This form I have a checkbox called "MailLetter" and a command button called "Sendletter".
I place a check in the box corresponding to specific people, then using a command button a letter is printed to ONLY THOSE WHO ARE CHECKED.
The letter is a Word document that resides on the desktop.
Here is the code behind a command button to print. Not sure if it is correct:
Private Sub Command2600_Click() Dim WordObj Set WordObj = CreateObject("Word.Application") WordObj.Visible = True WordObj.documents.Open "C:Documents and SettingsUserDesktopLetter.doc" End Sub
I assume this can be done through some sort of mail merge?
I have to write a code for my database,i have folder with files "pending Review" and a table with column "tblExcelLocation". when i run my database all the files from pending review folder goes to "tblExcelLocation" on a click of button.But,if the files already exists it should not insert those files and insert the rest.For this i tried to write a code but i think i m unable to do that .
Code: Loop through files in folder folderspec = "O:QA FilesQC ReportingPending Review" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.files
:confused: is ther anyway to lock ms access files , so that people would not be able to modify then and only view them, would not get to vbs screen etc, and give a limited password that will expire in given ammount of time.
Hi, I’m trying to Import an external CSV file in to Access and then Update/Add the record into a table. I need to be able to do it using SQL and I’m not allowed to touch RecordSet! Does anyone know How I could do this or where I would be able to find help on this.
We are running two versions of Access (97 and 2003) on some of our machines. We recently set up a new workgroup file, but it seems that on the machines that have the two versions of Access the workgroup file reverts back to the old setting everytime the user logs in again. What do we need to do to prevent the workgroup file from switching back?
Complete Access Newbie here. I am trying to create a Customer Complaints / Quality Assurance database and I am pretty much sorted except for one final thing that I wouldn't mind doing.
Because there is often a lot of support evidence with a complaint I wish to add this electronically to a record (it could be a Word Doc, Excel, jpg...etc..etc). So that whenever there is a link to the document to the supporting document on the record.
So really looking for an Add (and Browse for button) on the Form for each record.
For some reason Access will not allow me to open any mdb files. When i click on the file to open Microsoft opens the install wizard for office 2000 and asks for disc 2. If i press ok its says DATA2.msi is missing.
However if i open access through the Programs menu and then go and search for the mdb file i can open it with no problems.
My question is how to solve this problem as i have to copy give someone a copy of one of my databases and i don't want to pass on any bugs etc... ???
