bartender dan yazdırırken donma

merhaba,

bartender dan etiket yazdırmaya çalışırken program donuyor. yazıcıyı kapatıp açıyorum onda sonra yazdırıyor. donma sorunuda ortadan kalkıyor. bunu her etiket basımında yapmam gerekiyor. sorunu çözmem konusunda yardımcı olabilir misiniz.

kod aşağıdaki gibi

        Try
            If stokaditext.Text = "" Then
                MsgBox("Lütfen StokKodu Giriniz", MsgBoxStyle.Information, "Bilgi")
            Else
                Dim btApp As BarTender.Application
                Dim btFormat As BarTender.Format
                btApp = New BarTender.Application
                Dim btstokkodu As BarTender.SubString
                Dim btstokadi As BarTender.SubString
                Dim btbarkod As BarTender.SubString
                btApp.Visible = False
                btFormat = btApp.Formats.Open("C:\BARKOD\URUNBARKODU.btw", False, "")
                btstokkodu = btFormat.NamedSubStrings.GetSubString("stokkodus")
                btstokadi = btFormat.NamedSubStrings.GetSubString("stokadis")
                btbarkod = btFormat.NamedSubStrings.GetSubString("barkods")
                btstokkodu.Value = stokkodutext.Text
                btstokadi.Value = stokaditext.Text
                btbarkod.Value = barkodtext.Text
                btFormat.IdenticalCopiesOfLabel = kopyatext.Text
                btFormat.Print()
                btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try