Excel Vba Printing 追蹤

Legacy Poster

2016年06月15日 11:58

Hey all,

I'm currently having an issue with my code in excel VBA. It seems like it would be relatively easy, but I cannot figure out the solution.

It involves printing to Bartender from a combo box drop down list. And while the list is working and shows my data, whatever code I seem to use prints all records of the database, rather than just the specific record that I have selected.

If there is someone who thinks they may be able to help me I would really appreciate it. I was reading on the forums somewhere it might have to do with "activeformat" but there was never a continuation of how to fix it or if that was for sure the reasoning.

Here is my code:

Sub openSpecificLabel()
    Dim BarTender As Object
    Dim dirfile As String
        dirfile = "something"

    Dim btApp As BarTender.Application
    Dim btFormat As BarTender.Format

    Set btApp = New BarTender.Application
    Set btFormat = New BarTender.Format
    btApp.Visible = False
    btApp.Formats.Open (dirfile)
    On Error Resume Next

    If Range("B2").Value > 0 Then
        For i = 1 To Range("B2").Value
            btFormat.RecordRange = (WireLabelBox.LabelList)
            btFormat = btApp.ActiveFormat.Printout (false, false) & i
        Next i

        btApp.Quit
    Else
        btApp.Quit
    End If
End Sub

2 意見

Legacy Poster

2016年06月15日 14:01

If anyone is interested,

I have figured it out finally.

The new code looks like this in the if statement:

If Range("B2").Value > 0 Then
        For i = 1 To Range("B2").Value
            LLI = WireLabelBox.LabelList.ListIndex
            btFormat.RecordRange = LLI + 1
            btFormat.RecordRange = btFormat.PrintOut & i
        Next i

I was trying to print from selected records, but selected records only takes integers. Therefore I had to find the index of my own list and use those numbers, respective to each label in the list.

I hope this helps for anyone needing this in the future.

Legacy Poster

2016年06月16日 15:43

For anyone interested this is my complete (and working) code:

It allows a user to print specific labels, referenced from the Bartender records (which pull data in from a separate spreadsheet):

Sub openSpecificLabel()
    Dim BarTender As Object
    Dim dirfile As String
        dirfile = "N:\Labels\BarTender Labels\OTIS Wire Label.btw"

    Dim btApp As BarTender.Application
    Dim btFormat As BarTender.Format
    Dim LLI As Integer

    Set btApp = New BarTender.Application
    btApp.Visible = False
    Set btFormat = btApp.Formats.Open(dirfile)
    On Error Resume Next

'I want my information to be chosen from a combo box and LLI allows for adding items and

    'the .listindex will connect the respective labels to the record numbers in Bartender
    LLI = WireLabelBox.LabelList.ListIndex

'this allows the bartender file I have to connect which label I have chosen within my own combo box

'adding the +1 was necessary because I noticed starting on a .listindex alone will automatically start at 0

' i.e. if I want the first label in my drop down menu, its corresponding bartender record is 1

btFormat.RecordRange = LLI + 1

'this lets me force the amount of labels I want to be printed through an excel cell

btFormat.PrintSetup.IdenticalCopiesOfLabel = Range("B2").Value

'having btformat instead of activeformat allowed me to specifically print what I was changing around in Bartender within my code

'and setting it equal to btformat.recordrange tells bartender to print that record that I have chosen through my drop down menu in excel

    btFormat.RecordRange = btFormat.PrintOut(False, False)

    btApp.Quit

End Sub

請登入寫評論。