Yes, it prints in landscape. I open it in Design view to set all the controls in place and this is when I set it to Landscape Orientation. I then open it in Preview form. IF you do this manually, it will open in Landscape. However, when the code specifies it, it only opens in portrait.
Why? and how do i fix it. I know the code is correct because checking page setup it clearly says "Landscape Orientation" and like I...
J360
Last Activity: Oct 27 '08, 07:43 PM
Joined: Aug 12 '08
Location: TN
-
Report Orientation
Access 2003. I've set the report orientation to landscape using VB. The report that pops up is in Portrait view, but page orientation is correctly set to Landscape and it prints in landscape orientation. The really odd thing is that if I step through the code using F8, it will open in PrintPreview Mode as Landscape.
The relevant code is as follows.
...Code:rpt.Section(acDetail).Visible = False With
-
Thanks, works great now. I just had to move the position of my set db and set qdf.Leave a comment:
-
Export Select Qry to Excel
I'm using Access/Excel 03. I've created a query that opens fine, but when I use docmd.transfers preadsheet I receive ERROR 3011. Jet can't find the query qryMyQuery.
...Code:Set db = CurrentDb Set qdf = db.QueryDefs("qryMyQuery") qdf.SQL = strSQL qdf.Close DoCmd.OpenQuery "qryMyQuery" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryMyQuery", -
Exactly, that's not a typo at all. As the report is structured, that is the only way I can work out to enter any equation.
The table the report is based on is structured as such:
Columns - Manager; Branch; Item; 200808; 200807; ... 200708;
Rows - John MS Revenue $Data; $Data;....$Data ;
Costs $Data; $Data; ...$Data;
...Leave a comment:
-
Calculating % in a report with nothing but number data.
I have a dynamic report that shows income statement items trended out for the last 12 months.
If, for example, the user selects to see Gross Revenue and Cost Of Materials, these measures will be the row items and the months will be the column headers. I've hidden the detail section where each transaction is stored and display the sums of the measures in the "Measure" Group header.
This works great, but now... -
If you have to use the combo box, you'll have to manually enter the option "Insert new record." You'd then have to use VBA such that when this is selected and the user clicks a command button a form with text boxes opens. From this form the user would enter the new record.
Something like:
You'd place...Code:If Combo1.value = "Insert new record" then DoCmd.OpenForm ...Leave a comment:
-
Access 2003 Report Group Levels
In Access 2003, I'm creating a dynamic report and am trying to place text boxes into group headers. One report will have 6 group levels. I can place controls in the first two group headers easily by using the acGroupLevel1/2Header option. How do I place in the other group headers? acGroupLevel3He ader doesn't appear to exist and manually typing it doesn't seem to work. -
Thanks, but i need to open the report in Print Preview mode rather than opening it normally. Because of this, I keep getting an error that I can't set the orientation in the subreport when i set orientation in design view as you suggested.
Any other suggestions? I tried to write some code that sets landscape, and then switched between design and preview views in the hopes it would replicate physically clicking, but this doesn't work....Leave a comment:
-
Dynamic Report Landscape Orientation
I'm using VB in Access 2003 to generate a dynamic report. I first open the report in design view to set all the grouping levels etc. I then use
I then open and display the report using docmd and acviewpreview.Code:with rpt .printer.orientation = acProrlandscape ... End With
The report opens everytime in Portrait, although the page setup is correctly... -
Yes, right before the Select Case statement I have:
No luck.Code:DoCmd.reportOpen rpt.Name, acViewDesign
If anybody is interested, here is all the nastiness:
...Code:Private Sub FormButton_Click() Dim strAVP, strBranch, strTC, strDrug, strPay, strTrend, strTime, strCbo1, strCbo2, strCbo3, strSQL As String Dim rpt As Report Dim lblNew As Access.Label Dim txtnew
Leave a comment:
-
Great, that works (my code looks slightly different). Now I'm trying to put labels in the newly created group headers. The labels currently go in the page header and the text boxes are in the acDetail section.
I'm getting an error - either the grouping level doesn't exist or the report creates properly but the labels are nowhere to be found.
Below is my code. Any thoughts? Also, can anyone recommend a good guide...Leave a comment:
-
Anybody know how to modify to include group level in a dynamic report? There is no report saved in database so you can't go in on the report open sub.Leave a comment:
-
Can you set a dynamic report to be tabular automatically?
Also, could somebody show what the code would look like to add groupings to a dynamic report?
I try
with rpt
.GroupLevel(0). controlsource = me.combo1.value
but keep getting "Error, no grouping or sorting command given"
Thanks.Leave a comment:
-
VBA code to generate a tabular report
Access 2003.
I have used the code on this site (thanks!) to generate a dynamic report, but I'm stuggling with the format. How do I specify in VBA that the report should take a tabular form? -
Thanks, that worked perfectly.Leave a comment:
-
How to maintain maximized report when filtering by dialog box
Access 2003/ XP
Hi,
I have a report that has its On Open event set to open a form in the style of a dialog box
[Code]
Private Sub Report_Open(Can cel As Integer)
DoCmd.OpenForm FormName:="A_fr mAvpBrTc", _
WindowMode:=acI con
End Sub
[Code]
The dialog box opens underneath the report. Also, the report... -
I have a table with trended monthly financial data for a full year. The basic layout of the table is:
Fields: Manager I Branch I Product I Month 1 I Month 2 ... Month 12
I then have a form with 9 multiselect listboxes corresponding to the 9 fields that aren't the monthly data (user must see all Months in the qry and subsequent report).
Ideally, I would like to allow the user full freedom to select...Leave a comment:
-
What if I did something similar to this:
After getting the inputs from the list boxes:
For each str:
If len(str) = 0 then
str = ""
Else
I would then set
strXXX = str1 + str 2 +...+strN
CASE 1 len(strXXX) = 0
MsgBox "you must make selection"
Case 2 len(strXXX) <>0
This is where it breaks down...Leave a comment:
-
What if the user is not linear in her selections? I.E. makes a selection in boxes 2 & 9 but not in 1 & 3-8? How would you plan for that?
What I know I can do is use CASE to say
CASE 1 - user makes selection in box 1 and no other
Case 2 - user makes selection in box 1&2
What am I missing? Would I need to loop to check which boxes have selections, what those selections are, and then enter...Leave a comment:
No activity results to display
Leave a comment: