?
Solved

Custom label design with crystal reports

Posted on 2009-02-24
7
Medium Priority
?
1,030 Views
Last Modified: 2012-05-06
Hi guys,
How can i specify a custom label size during crystal report design.
I am using VB.net 2005 with CR, and I want to specify the exact label size, because
in the drop down list of paper size there is no custom size,
and if I choose e.g A4 , the printer prints labels until A4 size and pulls out other labels empty.

Any ideas??
CR-label.JPG
0
Comment
Question by:Jamiya
  • 4
  • 3
7 Comments
 
LVL 101

Expert Comment

by:mlmcc
ID: 23725730
You are limited to the paper sizes the printer supports.

mlmcc
0
 

Author Comment

by:Jamiya
ID: 23735891
Hi mlmcc,
Is there a way out??
How can I avoid the printer from printing extra empty labels
after filling the required labels??

Regards
0
 
LVL 101

Expert Comment

by:mlmcc
ID: 23741705
What do you mean?

mlmcc
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:Jamiya
ID: 23754382
I mean when I choose for example A4 size and print a label list, it prints the labels fine until A4 size,
then pushes the labels out empty.
0
 
LVL 101

Accepted Solution

by:
mlmcc earned 1500 total points
ID: 23761910
Crystal issues a form feed as part of the report footer.  There is no way to prevent that.

mlmcc
0
 

Author Comment

by:Jamiya
ID: 23786211
Hi guys,
i am using vb.net 2005 with CR, and if i store the images as path
they don't appear in the report, but only if they are stored as image field
and not varchar.
How is it possible to show the images in the crystal if they are stored as path?
0
 

Author Comment

by:Jamiya
ID: 23786250
I have in sql server 2000,  30 image fields, but the code i am using to store images only stores 10 images.
Any ideas???
OpenFileDialog.Multiselect = True
        Dim i As Integer
        Dim j As Integer = 1
        Dim sFilename As String
        If OpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            j = 1
            For Each file As String In OpenFileDialog.FileNames
                Dim strSQL As String = " UPDATE ConstructionTbl  "
                i = InStrRev(file.Trim, "\")
                If i = 0 Then
                    'No path found, only filename
                    sFilename = file.Trim
                Else
                    'Assign filename only to variable
                    sFilename = Microsoft.VisualBasic.Right(file.Trim, Len(file.Trim) - i)
                End If
 
                Dim ExtensionPosition As Integer = sFilename.LastIndexOf(".")
                Dim filePathNoEx As String = sFilename.Substring(0, ExtensionPosition)
                file = filePathNoEx
 
                Dim UnderScorePosition As Integer = file.LastIndexOf("_")
                Dim filePathNoUnderScore As String = file.Substring(0, UnderScorePosition)
                file = filePathNoUnderScore
                'MsgBox(file)
                Select Case j
                    Case 1 : strSQL += " SET Photo1 = @Photo1 "
                    Case 2 : strSQL += " SET Photo2 = @Photo2 "
                    Case 3 : strSQL += " SET Photo3 = @Photo3 "
                    Case 4 : strSQL += " SET Photo4 = @Photo4 "
                    Case 5 : strSQL += " SET Photo5 = @Photo5 "
                    Case 6 : strSQL += " SET Photo6 = @Photo6 "
                    Case 7 : strSQL += " SET Photo7 = @Photo7 "
                    Case 8 : strSQL += " SET Photo8 = @Photo8 "
                    Case 9 : strSQL += " SET Photo9 = @Photo9 "
                    Case 10 : strSQL += " SET Photo10 = @Photo10 "
                    Case 11 : strSQL += " SET Photo11 = @Photo11 "
                    Case 12 : strSQL += " SET Photo12 = @Photo12 "
                    Case 13 : strSQL += " SET Photo13 = @Photo13 "
                    Case 14 : strSQL += " SET Photo14 = @Photo14 "
                    Case 15 : strSQL += " SET Photo15 = @Photo15 "
                    Case 16 : strSQL += " SET Photo16 = @Photo16 "
                    Case 17 : strSQL += " SET Photo17 = @Photo17 "
                    Case 18 : strSQL += " SET Photo18 = @Photo18 "
                    Case 19 : strSQL += " SET Photo19 = @Photo19 "
                    Case 20 : strSQL += " SET Photo20 = @Photo20 "
                    Case 21 : strSQL += " SET Photo10 = @Photo21 "
                    Case 22 : strSQL += " SET Photo11 = @Photo22 "
                    Case 23 : strSQL += " SET Photo12 = @Photo23 "
                    Case 24 : strSQL += " SET Photo13 = @Photo24 "
                    Case 25 : strSQL += " SET Photo14 = @Photo25 "
                    Case 26 : strSQL += " SET Photo15 = @Photo26 "
                    Case 27 : strSQL += " SET Photo16 = @Photo27 "
                    Case 28 : strSQL += " SET Photo17 = @Photo28 "
                    Case 29 : strSQL += " SET Photo18 = @Photo29 "
                    Case 30 : strSQL += " SET Photo19 = @Photo30 "
                End Select
                Dim cmd As New SqlCommand(strSQL & " WHERE F1 = '" & file & "'", MainConn)
 
                'Dim cmd As New SqlCommand("UPDATE ConstructionTbl SET Photo = @Picture WHERE F1 = '" & file & "'", MainConn)
                Dim strBLOBFilePath As String = sFilename
                Dim fsBLOBFile As New FileStream(strBLOBFilePath, FileMode.Open, FileAccess.Read)
                Dim bytBLOBData(fsBLOBFile.Length() - 1) As Byte
                fsBLOBFile.Read(bytBLOBData, 0, bytBLOBData.Length)
                fsBLOBFile.Close()
                Dim prm As New SqlParameter("@Photo" + CStr(j), SqlDbType.VarBinary, bytBLOBData.Length, ParameterDirection.Input, False, _
                    0, 0, Nothing, DataRowVersion.Current, bytBLOBData)
                cmd.Parameters.Add(prm)
                j = j + 1
                cmd.ExecuteNonQuery()
            Next
        End If

Open in new window

0

Featured Post

Upgrade your Question Security!

Add Premium security features to your question to ensure its privacy or anonymity. Learn more about your ability to control Question Security today.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
Well, all of us have seen the multiple EXCEL.EXE's in task manager that won't die even if you call the .close, .dispose methods. Try this method to kill any excels in memory. You can copy the kill function to create a check function and replace the …
This Micro Tutorial will teach you how to add a cinematic look to any film or video out there. There are very few simple steps that you will follow to do so. This will be demonstrated using Adobe Premiere Pro CS6.
We’ve all felt that sense of false security before—locking down external access to a database or component and feeling like we’ve done all we need to do to secure company data. But that feeling is fleeting. Attacks these days can happen in many w…
Suggested Courses

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question