I have a database with a mail label printer and another printer attached to the computer. I would like the user to hit the command button for each of the printers and have the selected data printed without having to select which printer to use each time.
Note: Printer "set up" doesn't work, even when form is in design view, because after print is done, back to dialogue box when trying to print the next time.
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
This for an app being used in Access 2003. I'm trying to (sort of) automate naming a PDF report. After the user selects a printer from the print dialog, if the printer name is like "*PDF*" then I want to put the PDF file name in the clipboard so it can be quickly pasted in the file name of the PDF printer's save dialog.
Something like this:
Code:
Dim strSelectedPrinter as string
DoCmd.OpenReport "rpt1", acViewPreview
DoCmd.RunCommand acCmdPrint
[Code]....
but that returns the name of the default printer, not the selected printer.
I want to put a print button on my data entry form that prints the current record in a report that is laid out all nice and pretty. I found this code that works, but it goes straight to the printer - it does not bring up the printer dialog so you can select a printer.
Code:
Private Sub RecordPrint_Click()
Dim strWhere As String
If Me.Dirty Then
Me.Dirty = False
End If
[Code] ....
How do I get it to bring up the printer dialog?
How can I setup my form print button to print to a specific printer, and then to a specific tray? We need to use different colors depending on the item we're printing. This is possible by changing the printer settings as I print each form, but I'd like a more automated way to do this. Help please. Jolene
View 2 Replies View RelatedA while ago I started to use the following code to list the printers installed on a computer. This is code by Wayne Phillips.
This works well, but what if instead of simply getting a big message box with all the printers listed I wanted to be able to click on a name and set that printer? How do I do that?
Code for the button:
Private Sub cmdListPrinters_Click()
Dim strCount As String
Dim strMsg As String
Dim prtLoop As Printer
On Error GoTo ShowPrinters_Err
[Code] ....
Good 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?
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've created labels in my database and when I print them on a label printer, I get a blank label in between my printed labels. I've checked the printer settings and properties and can't find anything. I've also checked the database properties and can't find anything. Is there something in the database that I'm missing?
View 6 Replies View RelatedI have written the following code to open the Outlook 2013 'Select Names Dialog' with a command button called 'btnTo' from an Access 2010 form, this code works fine to display the dialogue box but it is usually hidden and the user has to 'click' the icon on the task bar to show the dialogue box. I know that there is an API that will bring the dialogue box to the front but how to code the API to do this.
Code:
Private Sub btnTo_Click()
On Error GoTo Err_btnTo_Click
Dim olkApp As Outlook.Application
Dim olkSes As Outlook.NameSpace
Dim olkSND As Outlook.SelectNamesDialog
[Code] .....
I have a custom form setup for 1up 1.5inch labels on the print server. We are printing these on Okidata Printers using an Epson driver.
I want to know how you can find the specific printersize number value for a form called "1_5upLabels" which is a custom form.
I am not looking to do this manually in the page setup for the report but to programmatically so that it's dynamic.
Is there a way I can loop through the forms for this printer and check for the form name?
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.
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 to open the regular filterdialog (with the checkboxen for the different values) in a report with VBA. With the regular filterdialog I mean the one you get when you select a column and then push the filterbutton.
View 3 Replies View RelatedI'd like to directly print a report from a button on a form.
I want to click the button and the report just prints to my default printer without any other user interaction.
Currently the print dialog appears but I don't want it.
How can I automate different printers for different reports on the same MS Access 2007 database, without having to select the printer each time?
There are two reports that are printed on the same database. Previously, I had automated form buttons to print the reports, without having to select the printer each time. This was about 8 years ago, but I don't remember how I did this. Also, I don't know SQL. Nothing against code, but I did not know how to program, and just MS Access 2007 access itself.
I need code for save dialog file ,and select the file from textbox and save it to the selected location.i have only this code and i dont know what else i can do with this because it just opens the save file dialog !
View 1 Replies View RelatedI 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.
Im working on a DB with multiple tables. My DB consists in a lot of tables, each one for a different element and his specifications (e.g.: transmitter, sensor, relay). The user can create loops selecting different elements (All the elements of the same loop have the same Loop ID).
I want that when the loop is finished the user can select one of the loops he has create and see all the elements and specifications he has selected for this loop. The problem is that when I want to show in a form or report all the elements the user has selected before I cant select each different element from his table and show in a form or report.Until now I have this code in a form to select an element from a report and show it, but it doesnt work very well.
-) List3 is a list box in my form where is the list of elements to select.
-) Boton1 is the button in my form to open the report when the element is selected
-) Transmitter Specifications is the report with the list of elements and his specifications.
Option Compare Database
Option Explici
Private Sub boton1_Click()
On Error GoTo Err_boton1_Click
[code]....
I'm using the following code to filter a report by using a multi-select box.
Code:
Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click
Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant
[code]....
I have a report that contains a subreport. The report is simply an image of a word document. The subreport will contain the actual data.When I open the subreport, the IN query works perfectly. When I open the main report, I only get the first record listed in the IN query. I have the master/child links set properly.
I have a select query that displays ALL [names] their [values] and the [date] when it was recorded.
Several [names] have multiple records and thus multiple [values]
I have a report based off this query. the report takes this data and graphs it.
The problem:as the database grows in records [names] the graph becomes crowded.
I would like to have a form for the user where they select from a dropdown list which record [names] they want to graph.
This will cause the query to only display records from the dropdown list.
This will cause the report to only graph a desired record.
I dont know how to make a query look for records based off of a select record in a dropdown list.
How to proceed and what is the "accepted" version of events.I have created a report, a dynamic method statement actually, and want my user to be able select some data to appear in the report. Report is rptMS01, it is fed from a query and has some fields to automatically populate [Company], [Site], [Postcode] etc. All of the static text is in CanGrow textboxes to sidestep the report height limit. The report is opened by a button on a form which uses a macro to open only for the current site. All OK so far.
My boss would like a section/text box/subreport to select the personnel involved in each method statement and this to appear on the report. So, on clicking the button on the form which would usually open the report directly, some kind of intermediary selection form opens instead with a list of all personnel. User can then select which personnel to involve and on clicking OK this appears in the designated box on the report. A CanGrow/Shrink textbox would be ideal!
Do I need to include this in the current query which feeds the report? I know a listbox can have multiple selections but how would I reference this? How do I keep the other fields as well? Should I create a table with the personnel list?...
I have a Child Report with underlaying records from a SELECT DISTINCT.
I prints records of prices, I need to show "some_text" if the price is "0".
Which event should I use?
I tried ChildReport On_Activate but could not pull it off.
I have a report reporting events that occurred today, using =Date() in the query.I want to have a control/box on the report which shows today's date by default, but enables me to select a different date with the outcome that the report refreshes and shows the events on the selected date instead.
Maybe I need a form for this although I would like to do conditional formatting so a report is better.It would also be good to be able to sort by column values, as in a table on a webpage with sort controls in the column headings which work just by clicking.
For the report in question all data is taken from one table named "Completions ". The fields I will be using are as follows:
Code:
[Surname]
[Firstname]
[Branch]
[Quarter1_A]
[Quarter1_T]
When the records are added, the Branch is added using a combo box. There can be several rows of data with the same Firstname and Surname but with different Branches.The report layout must look something like this.I have tried using DLookup to select the data based on the data in the Name text box, but this just gets the first result and duplicates it.
I'm using pbauldy's code to filter a report by a multi-select listbox. The only issue is..how do I include more (7 to be exact) listboxes to the code? It seems the OpenReport vba is only allowing 1 where clause?
Code:
Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant
'add selected values to string
Set ctl = Me.VP_ListBox
[Code] .....