Barcode tag printing problem

[satti]

Hi, am using direct print command for crystal report from vb.net form to print barcode on tags.the problem is
when i enable preview it give me correct print horizontal on barcode tag , but when i use direct print command
it print verticaly on barcode , i have tried all settings. kindly give any suggestion how to print horizonatly
with direct print command . am using

  Dim X As New ReportDocument
   If My.Computer.FileSystem.FileExists(Application.StartupPath & "\Reports\rptBarCode2.rpt") = True Then
                X.Load(Application.StartupPath & "\Reports\rptBarCode2.rpt")
            Else
                MsgBox("Report not found! ", MsgBoxStyle.Critical)
                Exit Sub
            End If
              X.PrintToPrinter(1, True, 1, 1)