"hon123456" <peterhon***@yahoo.com.hk> wrote in message
news:5b4f195c-16a2-4b26-ba9f-4d7e3c1701bb@v13g2000pro.googlegroups.com...
| Dear all,
|
|            I have try to find forum about Seagull Scientific
| Bartender VB Activex problem. But I cannot find it in Internet. So I
| think the closest newsgroup is Here. I have a label format with
| 2 columns. But each time I call the btformat.printout function, it
| only prints one column and
| goes to next row. What I want is to change the VB code to let it print
| in both two columns but
| not letting one column empty. The following is my code. Please help .
|
|          While not Rst.EOF
|                   IF Trim(Trim(Rst("labelformat"))) = "EVE" Then
|                            Set BtFormat = BtApp.Formats.Open("C:
| \Reotec\eve.btw")
|
|                            BtFormat.SetNamedSubStringValue
| "description", Trim(Rst("description"))
|                            BtFormat.SetNamedSubStringValue "pn", Trim
| (Rst("CustomerPN"))
|                            BtFormat.SetNamedSubStringValue "pn2", Trim
| (Rst("ReotecPN"))
|                            BtFormat.PrintOut
|                    End IF
|          Wend
|
| As you can see, where vb goes to Btfromat.printout method. It will
| print a label in one side
| of the Label but not two columns. How can I make it print in both two
| columns. I am very appreciate if you can give any suggestion. Or if
| you have better place for me to ask this question.
| Please suggest me. Thanksl
| a better place for me to ask this question. Please suggest me.

"hon123456" <peterhon***@yahoo.com.hk> wrote in message
news:5b4f195c-16a2-4b26-ba9f-4d7e3c1701bb@v13g2000pro.googlegroups.com...
> Dear all,
>
>            I have try to find forum about Seagull Scientific
> Bartender VB Activex problem. But I cannot find it in Internet. So I
> think the closest newsgroup is Here. I have a label format with
> 2 columns. But each time I call the btformat.printout function, it
> only prints one column and
> goes to next row. What I want is to change the VB code to let it print
> in both two columns but
> not letting one column empty. The following is my code. Please help .
>
>          While not Rst.EOF
>                   IF Trim(Trim(Rst("labelformat"))) = "EVE" Then
>                            Set BtFormat = BtApp.Formats.Open("C:
> \Reotec\eve.btw")
>
>                            BtFormat.SetNamedSubStringValue
> "description", Trim(Rst("description"))
>                            BtFormat.SetNamedSubStringValue "pn", Trim
> (Rst("CustomerPN"))
>                            BtFormat.SetNamedSubStringValue "pn2", Trim
> (Rst("ReotecPN"))
>                            BtFormat.PrintOut
>                    End IF
>          Wend
>
> As you can see, where vb goes to Btfromat.printout method. It will
> print a label in one side
> of the Label but not two columns. How can I make it print in both two
> columns. I am very appreciate if you can give any suggestion. Or if
> you have better place for me to ask this question.
> Please suggest me. Thanksl
> a better place for me to ask this question. Please suggest me.