I have a button that I click and it gets a value from my form and opens a query linked to a report, grabs the records, populates the report, and previews the report.
What I want to do now is Run the Query, dont show it, but print it to a deisignated Printer.
1. How can I run the report, not show it, but print it?
2. How can I force a print to a specific printer on my network?
Thanks..
I have an unbound form with an associated report. When the user hits the 'print' button on the form/screen, the report is launched in the background. In the On Load event of the report I populate the report fields from the forms field as so:
Code:
Me.txtAddrMainLine2 = "NAME " & UCase([Forms]![frm_OrderRx].[txtPatientName])
This works like a charm as long as I call the report in Print Preview mode (i.e. with acViewPreview). But if I send the report directly to the printer, none of the fields print.
I've read about using other report events to populate the fields (e.g., On Format and On Print) and also something about using TempVars to pass the data. But I haven't read anything that's clear and definitive about the full answer.
My workstation has a default printer that only prints A4, but I have an Access 2007 file with reports that require A3.
When I open these reports they see the A4 'default' printer.
If I try to change to the A3 printer in the report page setup (in design or print preview mode) it doesn't change - it keeps the default 'A4' and/or Access crashes.
If I change my workstation default printer to
The A3 printer and then open the Access file & report it works Ok (it picks up the A3 printer as default).
Can I use VBA to set the default printer and page setup to A3 when the report opens?
I have recently changed computers from a WindowsNT to and XP. When using the NT machine, I am able to print my Access report. However, when I hook up the XP machine and request a report from one specific database, I get the following message....this message also comes up if I try to open print preview or page setup.
"There was a problem retrieving printer information for this object. The object may have been sent to a printer that is unavailable."
I don't think it is a printer error as the error is occurring in this one database. I have successfully printed a test page and can open up other Access databases and print. I also tried converting the database to the 2002 format....but that did not make a difference either. There must be a setting in the database that is causing the error.....
Does anyone have any suggestions???
Access 2007 RUNTIME.I have 2 different printers, 1 for invoices A5 & one for general use A4.
I use
[URL]
and can change printers & some stuff but can't change margins.
Is there a way to change these margins via VBA that can be set in RUNTIME.
Like now, I have just had thousands of invoices pre-printed layout but the company managed to move the margin 5mm over so I have to program my MDB reports to reflect that.
Can you send a report directly to the printer? We have Clients with multiple Contact Notes, by multiple Clinicians, each of these are separate tables. Every month we print two reports for each client that had at least one contact in that date-range. Usually 200 clients, takes a lot of time. My approach so far is a query within a make-table query to get a list of unique client ID's that had one contact in the date-range. Then I use that table in code to create a recordset, use a Do Loop within that where I print the two reports for the 1st client, move to next record and loop. Now that I've got it working I'm not sure how to print all the reports My 1st question, can you send a report directly to the printer from code? The printer is a networked Konica Minolta Biz-hub so I think it can handle that many jobs being queued that fast.
View 4 Replies View RelatedI have the following code of my holiday calendar however I would like to convert the month into uppercase. I know about the 'Ucase' function but I am fairly new to this and have tried to place this within the code but with no success:-
With theReport
.Controls("labelMONTH").Caption = Format(StartDate, "mmmm")
I have a report, with a sub report. The sub report has a determined height, and can't grow or shrink.
It has enough height for 25 rows, which will never be filled for this purpose.
I need a totals box to appear after the 25th row, but it will only show at the bottom of the list, regardless of the number of rows.
I have a =sum([Price]) control box in the report footer, is there a way to make the report footer go to the bottom of the pre-defined height?
My other option was to place the =Sum([price]) on the parent form, but that got messy with Reports![rptSheet].[rptSheetSub]!Report.[Price]
It didn't like it, nor did the sum function.
I have a project which produces a report of names, addresses, etc. I added a print button to the form to send the report to the printer. The code is as follows:
Private Sub Command32_Click()
Docmd.SetWarnings False
'Docmd.OpenReport "rptAddresses", acViewNormal
Docmd.RunCommand acCmdPrint
Docmd.SetWarnings True
End Sub
Both alternatives in the code produce the same result described following.However, the printed report includes only the first 2 colums of about 10 of the 90 plus records. If I send to to a PDF, it works fine. If I do a print view on the screen ir looks fine.
I have a lovely report that includes a small color photograph. I'm sending the report to print on my HP Color LaserJet, but it is printing in black and white.
I can't find anything in the Properties that specifies whether this prints in color or black & white.
How to print this in color?
How can I print a report and at the same time programatically set the printer name and 'Print to File' option and set the path of this option?
View 1 Replies View RelatedHi,
we ran into quite a serious problem the other day whilst batch printing a large number of reports from Access 2000.
For some unknown reason the print job got interrupted part way through, resulting in a large number of reports not printing at all.
Our database uses an sql fragment to set the field 'isPrinted' to true upon sending reports to the printer. This is primarily to prevent records being printed more than once.
However, if, as above, the print job doesn't successfully complete the db still, as expected, marks the record as such. This provides us with a somewhat flase account of the status of the print job.
My question is this, is there a way in vb that Access can verify the success/failure of a print job?? Are there modules or code examples available that might help us interrogate the printer and perhaps abort on error?
* Standard Disclaimer:
VB Noob! Gentle brow-slapping only please!
I wish to send a report to the PDF printer driver but DO NOT wish to switch the default printer settings. Having found some helpful code on this forum that changes the default printer to the PDF driver, prints the job and then reverts the default printer back to the original printer device.
I am still using Access '97 and although in the code, the default printer does revert back to what it was originally, the Default Printer status 'tick' no longer appears under Start/Settings/Printers.... Consequently, subsequent print jobs outside of Access go to another device and not my DEFAULT printer.......???
Any ideas would be gratefully appreciated.
Oh - in case I wasnt clear - I want to do this in code NOT using the Print dialog box.... !
Hi All,
I know I am not alone on this one, as I have seen this problem posted elsewhere before.
We have installed Access 2003 on 2 workstations in a Windows Server 2003 domain, and on both these workstations, when you mouse over the print icon in the toolbar, it reports "No Printer" and indeed, we cannot print to the network printer from Access 2003, even though a printer is installed and working.
All other Office applications print to the printer OK, its just Access that doesn't seem to find the printer.
Has anyone come across a fix for this problem?
Cheers,
Alan
Hello, i develope with ACCESS2003, i used the printer object : dim xxxx as printer, it works fine but when i install my program on my client PC which doesn't have ACCESS2003 but only ACCESS RUNTIME2003 i have an error (error c++ ... run-time terminates abnormaly), this PC have ACCESS2000 and when i run my base through ACCESS2000 to debug it i have an error (undefined object) on the dim instruction. I was thinking all aplication developed with A2003 was running with run-time2003, apparently no, is something missing ?
Thanks in advance for any help.
VINCENT
Hi,
I used the code below to hide all the toolbars and then created my custom ReportToolbar so the user can print the report. All works OK; however, the PRINT button on my custom toolbar sends the report imidiately to the printer. How can I create a button that I could add to my custom toolbox which would open the dialog box that allows to choose the printer, number of pages to print, etc.. (same action as I can get by going to File->Print)?
PS> Also, is there any way to remove the drop down arrow from my custom toolbox? I disabled Customize Toolbox but the pulldown arrow still appears. I found making an MDE would take care of this, but was wondering if there was another solution.
Code used to hide toolbars:For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i
We're trying to print a barcode (characterset "3 of 9 barcode"). If we print the data starting from an Excel-document on a Dymo-printer there is no problem to "read" the barcode with a scanner. However, if we print the same data starting from an Access-database, the barcode cannot be scanned. Does anybody have a clue how to solve this ?
View 9 Replies View RelatedGood morning,
I've created a pretty powerful Access Database that pulls information out of some ODBC tables we have on our local server. Of course, I created the database and all the forms and reports on my work computer here. But, when I was finished, I sent that entire database out to probably 20 or 30 people in the company. On a daily basis, they run the same program from their own computer and they like to print/export/etc. the reports that are produced. However, I don't understand why those reports print our on my personal printer (the printer is on the network). If they have a default printer at their site, why wouldn't it print there? Also, I haven't included any printing macros or VBA coding. I'm tired of having 30 or 40 sheets of paper print out on my printer daily. Any suggestions?
I designed a query, opened it and printed it. But the margins were too wide and I needed it to print in landscape also. So I changed the settings and it worked fine, but I can't get it to save the settings. Is it possible to save the printer settings for printing a query, both the margin and the landscape settings. If so, please tell me how. Thanks.
View 4 Replies View RelatedDoes anyone know if there is a way to setup a button on a form that when pressed, will print to a specific printer (that's not the default)? For example, I have one button on my form that prints 2 copies to the default printer, then I want the other button on the form to print on another department's printer.
Thanks!
IT guy quit. New forms printer installed and unable to relate/find form or query that default printer is pointing to
to change to new printer. Non programmer. Clueless.
program is 10MB and database is 2.3MB
searched through forms/reports/ and queries.
too much **** to look at
I am using Access 2003.
Access front end, sybase backend. I am building the queries in the design mode in Access.
Here is my question...
I am looking for a way to force a one-to-many relationship between two tables. I am connecting the primary key in table1 to a field (foreign key) in table 2. But it keeps going to one-to-one.
It should be doing one-to-many (the "1" and the "8"-sideways infinity symbol).
What am i doing wrong? Please help.
I have a query in Access 2000 that I can't get to force a certain value in empty rows for a particular field column - maybe someone here can see why?
The SQL for the query is as follows (give or take some)...:
TRANSFORM Count([Testing DB].[DB_ID]) AS [CountOfDB_ID]
SELECT [Testing DB].State, [Location].[North], Count([Testing DB].[DB_ID]) AS [Total Of DB_ID]
FROM [Testing DB] LEFT JOIN [Location] ON [Testing DB].[Address] = [Location].Address
WHERE ((([Location].[Size])=Nz([Size],"Big")) AND (([Testing DB].[Window Length]) Is Not Null)
GROUP BY [Testing DB].State, [Location].[Size]
ORDER BY [Testing DB].State, [Location].[Size]
PIVOT Format([Date],"mmm-yyyy");
I want my crosstab to end up so that any records in the "Size" column that are not matched between the two tables, and therefore come up empty for those rows in the query results, are forced to change from empty to "Big" - so that they can be added into the count of "Big" hits that the query ends up with in the "Size" column. But all my "nz" addition did was remove the columns with blank values from the crosstab - no addition to the "Big" counts.
Am I perhaps going about this incorrectly? Maybe I should have used some form of iif(is null) instead.:confused: Any help is, as always, much appreciated.
I have an access POS application which prints receipt on a receipt printer. I do not have a specified length of the receipt as sales vary in the quantity of items . Does anyone know how I can code it so that the last text is the end of the report and the paper is cut off right there? And also the printer is connected to Parallel port so i want these print commands to go to this particular port...
I wonder whether this could be done with printer driver installed.......... If so how the page length of receipt template has to be set. the width is ofcourse limited to 3 inches but as I told u guys length is unkown.....and dont think stillwe can resolve printing to specific printer issue(having driver nstalled).
thanks
This may take a while so please try to stay with me on this:
I have set up a query and a report (using label wizard) so that I can print a label of the current record viewed in a form. This seems to work until I get to the actual printing stage.
The printer I am using is an Epson LQ-300, printing onto a continuous sheet of labels (Avery's I think. 1 across. Dimensions 1 7/16" x 4").
When I press print I get the following code at the beginning of the label:
@EJL 1284.4
@EJL followed by endless blank labels. From what I can find on the net this is a driver problem but not sure how to fix it.
Also, in the label preview, should it be showing the single label as a full page report with the label text stuck in the top left? I have a similar report to print multiple labels and this also shows each label on a separate page. Doesn't seem right to me. Am I doing something wrong in the wizard set-up?
Any advice on this is most welcome. Thanks.
Hello,
Is it possible to get Access to open the print dialogue box instead of printing direct to the default printer when using the print command?
Thanks