ByteScout Barcode Suite - Visual Basic 6 - Print with crystal reports with barcode sdk - ByteScout

ByteScout Barcode Suite – Visual Basic 6 – Print with crystal reports with barcode sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Barcode Suite – Visual Basic 6 – Print with crystal reports with barcode sdk

How to print with crystal reports with barcode sdk in Visual Basic 6 and ByteScout Barcode Suite

Step-by-step tutorial on how to print with crystal reports with barcode sdk in Visual Basic 6

Print with crystal reports with barcode sdk is simple to apply in Visual Basic 6 if you use these source codes below. What is ByteScout Barcode Suite? It is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK. It can help you to print with crystal reports with barcode sdk in your Visual Basic 6 application.

Want to save time? You will save a lot of time on writing and testing code as you may just take the Visual Basic 6 code from ByteScout Barcode Suite for print with crystal reports with barcode sdk below and use it in your application. This Visual Basic 6 sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Complete and detailed tutorials and documentation are available along with installed ByteScout Barcode Suite if you’d like to learn more about the topic and the details of the API.

You can download free trial version of ByteScout Barcode Suite from our website to see and try many others source code samples for Visual Basic 6.

On-demand (REST Web API) version:
 Web API (on-demand version)

On-premise offline SDK for Windows:
 60 Day Free Trial (on-premise)

BarcodePrint.vbp
      
Type=Exe Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation Object={C4847593-972C-11D0-9567-00A0C9273C2A}#8.0#0; crviewer.dll Reference=*\G{2A75196C-D9EB-4129-B803-931327F72D5C}#2.8#0#C:\Program Files\Common Files\System\ado\msado28.tlb#Microsoft ActiveX Data Objects 2.8 Library Reference=*\G{B4741C00-45A6-11D1-ABEC-00A0C9274B91}#8.5#0#C:\Program Files\Seagate Software\Report Designer Component\craxdrt.dll#Crystal Reports 8.5 ActiveX Designer Run Time Library Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\Windows\system32\scrrun.dll#Microsoft Scripting Runtime Form=Form1.frm Module=Module1; Module1.bas Form=Form2.frm IconForm="Form1" Startup="Form2" HelpFile="" ExeName32="BarcodePrint.exe" Command32="" Name="Project1" HelpContextID="0" CompatibleMode="0" MajorVer=1 MinorVer=0 RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 CompilationType=0 OptimizationType=0 FavorPentiumPro(tm)=0 CodeViewDebugInfo=0 NoAliasing=0 BoundsCheck=0 OverflowCheck=0 FlPointCheck=0 FDIVCheck=0 UnroundedFP=0 StartMode=0 Unattended=0 Retained=0 ThreadPerObject=0 MaxNumberOfThreads=1

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Form1.frm
      
VERSION 5.00 Object = "{C4847593-972C-11D0-9567-00A0C9273C2A}#8.0#0"; "crviewer.dll" Begin VB.Form Form1 Caption = "Barcode Print Preview" ClientHeight = 8865 ClientLeft = 120 ClientTop = 450 ClientWidth = 13890 LinkTopic = "Form1" ScaleHeight = 8865 ScaleWidth = 13890 StartUpPosition = 3 'Windows Default WindowState = 2 'Maximized Begin VB.PictureBox Picture1 AutoSize = -1 'True Height = 1695 Left = 2640 ScaleHeight = 1635 ScaleWidth = 11835 TabIndex = 2 Top = 7440 Visible = 0 'False Width = 11895 End Begin CRVIEWERLibCtl.CRViewer CRViewer1 Height = 6495 Left = 2520 TabIndex = 1 Top = 120 Width = 15975 DisplayGroupTree= -1 'True DisplayToolbar = -1 'True EnableGroupTree = -1 'True EnableNavigationControls= -1 'True EnableStopButton= -1 'True EnablePrintButton= -1 'True EnableZoomControl= -1 'True EnableCloseButton= -1 'True EnableProgressControl= -1 'True EnableSearchControl= -1 'True EnableRefreshButton= -1 'True EnableDrillDown = -1 'True EnableAnimationControl= -1 'True EnableSelectExpertButton= 0 'False EnableToolbar = -1 'True DisplayBorder = -1 'True DisplayTabs = -1 'True DisplayBackgroundEdge= -1 'True SelectionFormula= "" EnablePopupMenu = -1 'True EnableExportButton= 0 'False EnableSearchExpertButton= 0 'False EnableHelpButton= 0 'False End Begin VB.CommandButton Command2 Caption = "Generate Crystal Report" BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1095 Left = 120 TabIndex = 0 Top = 7080 Visible = 0 'False Width = 1695 End Begin VB.Image Image1 Height = 1695 Left = 2640 Stretch = -1 'True Top = 9240 Visible = 0 'False Width = 11895 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False 'DEFINITcION: 'need to write the simple app showing insertion of generated images(will provide the dll that 'generates images in png, bmp, gif formats) into Crystal Report 8.5 in Visual Basic 6 'Add REFRENCE Microsoft Scripting Runtime Public cn As ADODB.Connection Public crx As New CRAXDRT.Application Dim rpt As CRAXDRT.Report 'Variable for Report Dim db As CRAXDRT.Database 'variable for Report Database Dim crTab As CRAXDRT.DatabaseTable 'Variable for Report Database Table Dim rs As New ADODB.Recordset Dim WithEvents sect As CRAXDRT.Section 'Variable for Sector of Report Attribute sect.VB_VarHelpID = -1 Dim pic1 As String 'Stores Image path Dim h, w As Double 'Stores Height and width Private Sub Command6_Click() Unload Me End Sub Private Sub sect_Format(ByVal pFormattingInfo As Object) Dim fso As New FileSystemObject 'Variable for Files,Folders add,edit,delete etc Dim bmp As StdPicture 'store .bmp file's memory or buffer Dim gif As StdPicture 'store .gif file's memory or buffer Dim ext As String 'store Extension of image file pic1 = sect.ReportObjects.Item("Field2").Value 'gets and stores image path 'check for image available or not If fso.FileExists(pic1) = False Then MsgBox "File not found" Exit Sub End If ext = Right(pic1, 3) 'gets and stores extension of image 'checks for particular extension and loads it to picturebox control If ext = "png" Then PngPictureLoad pic1, Picture1, True ElseIf ext = "bmp" Then Picture1.Picture = LoadPicture(pic1) ElseIf ext = "gif" Then Image1.Picture = LoadPicture(pic1) Picture1.Picture = LoadPicture(pic1) End If If ext = "png" Then PngPictureLoad pic1, Picture1, True 'It loads file to Picture box control, the method "PngPictureLoad" is defined in Module "Module1" With sect.ReportObjects 'it refers to section of Report pic1 = .Item("Field2").Value 'It gets and stores Image path Call pic_size 'It will get the size of image the method 'pic_size' is defined bellow 'Set .Item(3).FormattedPicture = Image1.Picture 'It will load Image or picture to Crystal Report Set .Item(3).FormattedPicture = Picture1.Picture 'It will load Image or picture to Crystal Report .Item(3).Width = w 'It will set width of Image .Item(3).Height = h 'It will set height of Image End With ElseIf ext = "bmp" Then Image1.Picture = LoadPicture(pic1) 'It loads file to Picture box control With sect.ReportObjects 'it refers to section of Report pic1 = .Item("Field2").Value 'It gets and stores Image path Call pic_size 'It will get the size of image the method 'pic_size' is defined bellow Set bmp = LoadPicture(.Item("Field2").Value) 'It will load Image or picture to bmp variable Set .Item(3).FormattedPicture = bmp 'It will load Image or picture to Crystal Report .Item(3).Width = w 'It will set width of Image .Item(3).Height = h 'It will set height of Image End With ElseIf ext = "gif" Then Image1.Picture = LoadPicture(pic1) 'It loads file to Picture box control With sect.ReportObjects 'it refers to section of Report pic1 = .Item("Field2").Value 'It gets and stores Image path Call pic_size 'It will get the size of image the method 'pic_size' is defined bellow Set gif = LoadPicture(.Item("Field2").Value) 'It will load Image or picture to gif variable Set .Item(3).FormattedPicture = gif 'It will load Image or picture to Crystal Report .Item(3).Width = w 'It will set width of Image .Item(3).Height = h 'It will set height of Image End With End If End Sub Public Sub Command2_Click() Call conn 'Calls Conn method to connect with Database which is defined below Dim rpt_path, pwd As String 'rpt_path stores Report Path and pwd stores Password of Database pwd = Chr(10) & "crystal_report" 'It gets and stores Password of Database rpt_path = App.path & "\Report2.rpt" 'It gets and stores Report Path Set appl = New CRAXDRT.Application 'sets Crystal Report as Application to "appl" variable Set rpt = appl.OpenReport(rpt_path) 'sets Report path to rpt variable 'below loop tells Crystal Report to follow Database For Each crTab In rpt.Database.Tables crTab.Location = App.path & "\temp.mdb" crTab.SetSessionInfo "", pwd Next Set sect = Nothing 'sect variable gets blank Set sect = rpt.Sections("Section5") 'sect variable gets Section of CR rpt.DisplayProgressDialog = True 'It shows Progressbar to display CR If rs.State = 1 Then rs.Close 'Checks if rs is open then it will close 'RS->Recordset of Database rs.Open "SELECT * FROM test", cn, 1, 1 'rs open with new query rpt.Database.SetDataSource rs, 3, 1 'sets rs to Crystal Report 'Check if rs has no record then it will display massege that no files to load If rs.RecordCount <= 0 Then MsgBox "NO Files To Load", vbInformation Exit Sub End If CRViewer1.ReportSource = rpt 'CRViewer control gets which report to display CRViewer1.ViewReport 'It will Display Report CRViewer1.Zoom 1 'Crystal Report Zoom 100% pic1 = rs.Fields(1).Value 'gets and stores Image path End Sub 'Method to create connection with Database Public Sub conn() On Error GoTo checkErr Dim path As String path = App.path & "\temp.mdb" Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = path cn.Properties("Jet OLEDB:Database Password") = "crystal_report" cn.Open OpenDatabase = True Exit Sub checkErr: MsgBox Err.Description, vbExclamation, Err.Number End Sub Private Sub Form_Load() Call conn 'It will call Conn method to establish connection with Database End Sub Private Sub Form_Resize() 'setting Crystal Report to Form CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth End Sub Private Sub Form_Unload(Cancel As Integer) If cn.State = 1 Then cn.Close 'close connection If rs.State = 1 Then rs.Close 'close recordset End Sub 'This method loads image to picturebox control and then sets height and width of image Private Sub pic_size() Dim ext As String ext = Right(pic1, 3) If ext = "png" Then 'PngImageLoad pic1, Image1 PngPictureLoad pic1, Picture1, False ElseIf ext = "bmp" Then 'Image1.Picture = LoadPicture(pic1) Picture1.Picture = LoadPicture(pic1) ElseIf ext = "gif" Then 'Image1.Picture = LoadPicture(pic1) Picture1.Picture = LoadPicture(pic1) End If 'h = Image1.Height 'w = Image1.Width h = Picture1.Height w = Picture1.Width 'MsgBox "Height : " & h & vbCrLf & "Width : " & w End Sub

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Form2.frm
      
VERSION 5.00 Begin VB.Form Form2 Caption = "Barcode Printing Application" ClientHeight = 1905 ClientLeft = 120 ClientTop = 450 ClientWidth = 4185 ControlBox = 0 'False LinkTopic = "Form2" ScaleHeight = 1905 ScaleWidth = 4185 StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command4 Cancel = -1 'True Caption = "E&XIT" BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1455 Left = 2880 TabIndex = 1 Top = 240 Width = 975 End Begin VB.CommandButton cmd_gen_cr_with_barcodes Caption = "Generate Crystal Report with Barcodes" BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 1455 Left = 120 TabIndex = 0 Top = 240 Width = 2415 End End Attribute VB_Name = "Form2" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False 'Variable Declaration 'Dim pic1 As String 'Stores Image path 'Dim h, w As Double 'Stores Height and width of Image 'Dim bmp_path As String 'Dim png_path As String Private Sub cmd_gen_cr_with_barcodes_Click() Form1.Command2_Click Form1.Show End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() Call conn 'It will call Conn method to establish connection with Database End Sub 'Method to insert path of images to database Private Sub insert_into_DB() Dim query As String 'Delete old Data clears Database If rs.State = 1 Then rs.Close query = "delete * from test" rs.Open query, cn, 1, 1 'Insert Data to Database num1 = 1 If rs.State = 1 Then rs.Close query = "insert into test values(" & num1 & ",'" & bmp_path & "')" rs.Open query, cn, 1, 1 If rs.State = 1 Then rs.Close query = "insert into test values(" & num1 & ",'" & png_path & "')" rs.Open query, cn, 1, 1 End Sub 'Method to create connection with Database Public Sub conn() On Error GoTo checkErr 'Error Handler Dim path As String path = App.path & "\temp.mdb" Set cn = New ADODB.Connection cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = path cn.Properties("Jet OLEDB:Database Password") = "crystal_report" cn.Open OpenDatabase = True Exit Sub checkErr: MsgBox Err.Description, vbExclamation, Err.Number End Sub

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next