Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.databases.ms-access > #12521 > unrolled thread

Skip Labels

Back to article view | Back to comp.databases.ms-access

Contents

  Skip Labels croy <hate@spam.invalid.net> - 2017-05-14 15:58 -0700
    Re: Skip Labels DFS <nospam@dfs.com> - 2017-05-14 19:32 -0400
      Re: Skip Labels croy <hate@spam.invalid.net> - 2017-05-14 17:02 -0700
    Re: Skip Labels Ron Weiner <rw@domain.com> - 2017-05-14 20:22 -0400
    Re: Skip Labels Mike P <mikewpayne@tiscali.co.uk> - 2017-05-15 04:06 -0700

#12521 — Skip Labels

How to set up a label printing report to skip a user-specified number of labels on the sheet?

It seems that the most tantalizing links from searching point to a KB article that is no longer
available (299024).

-- 
tbl

[toc] | [next] | [standalone]

#12522

On 5/14/2017 6:58 PM, croy wrote:

> How to set up a label printing report to skip a user-specified number of labels on the sheet?
> 
> It seems that the most tantalizing links from searching point to a KB article that is no longer
> available (299024).


What's the algorithm for choosing which labels to skip?

[toc] | [prev] | [next] | [standalone]

#12523

On Sun, 14 May 2017 19:32:46 -0400, DFS <nospam@dfs.com> wrote:

>On 5/14/2017 6:58 PM, croy wrote:
>
>> How to set up a label printing report to skip a user-specified number of labels on the sheet?
>> 
>> It seems that the most tantalizing links from searching point to a KB article that is no longer
>> available (299024).
>
>
>What's the algorithm for choosing which labels to skip?

A dialog pops up and asks the user how many labels to skip.  ;-)

-- 
croy

[toc] | [prev] | [next] | [standalone]

#12524

croy used his keyboard to write :
> How to set up a label printing report to skip a user-specified number of 
> labels on the sheet?
>
> It seems that the most tantalizing links from searching point to a KB article 
> that is no longer available (299024).

If you want to allow the user to skip the first n labels on a sheet of 
labels.  In the past I created a scratch table that had the columns for 
the fields that get printed.

When the user selects a print and specifies the number of labels to 
skip I...
1st Delete all of the records in the scratch table
2nd Insert the nuber of blank rows the user specified to skip in the 
scratch table
3rd Insert all of the data for the records that need to be printed in 
the scratch table
4th Open the report that prints the labels.  Obviously that report must 
be based on the scratch table.

Rdub

[toc] | [prev] | [next] | [standalone]

#12525

On Sunday, May 14, 2017 at 11:58:59 PM UTC+1, croy wrote:
> How to set up a label printing report to skip a user-specified number of labels on the sheet?
> 
> It seems that the most tantalizing links from searching point to a KB article that is no longer
> available (299024).
> 
> -- 
> tbl

On Sunday, May 14, 2017 at 11:58:59 PM UTC+1, croy wrote:
> How to set up a label printing report to skip a user-specified number of labels on the sheet?
> 
> It seems that the most tantalizing links from searching point to a KB article that is no longer
> available (299024).
> 
> -- 
> tbl

Hi croy,

If you could introduce a sequential ID field (1 upwards) into the table/query that is the source for the report you might be able to ignore the first x records by setting a report filter.....

Private Sub Report_Open(Cancel As Integer)
Dim strSkipCount As String
Dim intRecCount As Integer

    On Error GoTo Error_Report_Open

    strSkipCount = InputBox("Number of labels to skip?", "Skip Count")
    
    If Not IsNumeric(strSkipCount) Then
        MsgBox "Skip count must be numeric."
        Cancel = True
        Exit Sub
    End If

    If strSkipCount < 0 Then
        MsgBox "Skip count must be zero or positive."
        Cancel = True
        Exit Sub
    End If

    intRecCount = DCount("*", Me.RecordSource)

    If strSkipCount >= intRecCount Then
        MsgBox "Skip count (" & strSkipCount & ") exceeds record count " & "(" & intRecCount & ").", , "Skip Count Too High"
        Cancel = True
        Exit Sub
    End If

    Me.Filter = "ID>" & strSkipCount
    Me.FilterOn = True

Exit_Report_Open:
    On Error GoTo 0
    Exit Sub

Error_Report_Open:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Report_Open of VBA Document Report_rptSupplier"
    Resume Exit_Report_Open
End Sub

Mike P.

15/5/17

[toc] | [prev] | [standalone]

Back to top | Article view | comp.databases.ms-access

csiph-web