nextrecord, printsection properties of a report

ITA · Apr 25, 2000

Hi,     I am using the following code to print one record as many times as the value entered in the listbox. It will work if the value is 1, however when you enter any other number in the list box multiple labels are printed. I was wondering if anyone else has any suggestions. CODE....... Dim intSkipped As Integer Dim intToSkip As Integer Dim LabelCopies& Dim CopyCount& Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)    'This set of code tell access to not advance to the next record and print the same record again    If intSkipped < intToSkip Then       Me.NextRecord = False       Me.PrintSection = False       intSkipped = intSkipped + 1    End If        CopyCount& = 0    If CopyCount& < (LabelCopies& - 1) Then         Me.NextRecord = False         CopyCount& = CopyCount& + 1    Else         CopyCount& = 0    End If End Sub Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)    'This code is where the skip label position and number of labels to print is generated from    intSkipped = 0    intToSkip = adhGetLabelsToSkip(FormName:="frmSelectLabel", _     Rows:=7, Cols:=2, Start:=1, PrintAcross:=True)         LabelCopies& = Val(inputbox$("Enter Number of Copies to Print&quot

)    If LabelCopies& < 1 Then LabelCopies& = 1 End Sub

DougP · Apr 25, 2000

Not sure where you got "Me.NextRecord" I wish it would work. .MoveNext is the correct parameter but it does not work with the Form like Me.MoveNext either. The only way I know of is set the forms recordset to Me.RecordsetClone which takes a copy of the forms records and puts them in something which you manipulate and then pass back to the form using a Bookmark. So let me see, you want to print the number of labels based on a selected item in a list box right? So if the List box number is 4 then you want to print 4 copies of the same labels??? And what else? Also this function is missing from your paste: adhGetLabelsToSkip(FormName:="frmSelectLabel", _     Rows:=7, Cols:=2, Start:=1, PrintAcross:=True)          DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a> Ask me how Bar-codes can help you be more productive.

ITA · Apr 26, 2000

Doug,      The nextrecord and printsection reference can be found in the access help file. I will enclude the excert from the help file for everyone to look at and use. *********************************************************** You can use combinations of these property settings in Visual Basic to specify or change a report's layout when the report is previewed, printed, or saved to a file: · The MoveLayout property specifies whether Microsoft Access should move to the next printing location on the page. · The NextRecord property specifies whether a section should advance to the next record. · The PrintSection property specifies whether a section should be printed. Setting The MoveLayout property uses the following settings. Setting Description True (–1) (Default) The section's Left and Top properties are advanced to the next print location. False (0) The section's Left and Top properties are unchanged. The NextRecord property uses the following settings. Setting Description True (Default) The section advances to the next record. False The section doesn't advance to the next record. The PrintSection property uses the following settings. Setting Description True (Default) The section is printed.  False The section isn't printed. To set these properties, specify a macro or event procedure for a section's OnFormat property. Microsoft Access sets these properties to True before each section's Format event. Remarks These properties are useful when you want to use a report as a template into which you write data from a macro or Visual Basic as you print. The following table shows the result of different setting combinations for these properties. MoveLayout NextRecord PrintSection Description True True True (Default) Move to the next print location, get the next record, and print the data. True False True Move to the next print location, don't advance to the next record, but print the data. This combination is typically used when the data in a section requires more space than the layout allows and you want to print the remaining data in the space that would otherwise be occupied by the next section. False True False Skip a record without leaving a blank space on the page. True True False Skip a record and leave a blank space on the page. True False False Leave a blank space without skipping a record. False True True Print the current record on top of the last record as an overlay. False False True Not allowed. False False False Not allowed. ************************************************************ Here is the code for that function.... *********************************************************** Function adhGetLabelsToSkip(FormName As String, Rows As Integer, _  Cols As Integer, Start As Integer, PrintAcross As Boolean) As Integer     On Error GoTo adhGetLabelsToSkip_Err     ' Pop up a form, requesting the starting label.               ' In:     '    FormName: string containing the name of the form to open     '    Rows: Number of rows to display on the form     '    Cols: Number of cols to display on the form     '    Start: Which label to select, by default     '    PrintAcross: True to number across first,     '     False to number down first.     ' Out:     '    Return value: the number of the starting label          ' First, open the label-choosing form.     DoCmd.OpenForm FormName:=FormName, _      WindowMode:=acDialog, _      OpenArgs:=

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

nextrecord, printsection properties of a report

ITA

Programmer

DougP

MIS

ITA

Programmer

Similar threads

Part and Inventory Search

Sponsor