15,740,980 members
Sign in
Sign in
Email
Password
Forgot your password?
Sign in with
home
articles
Browse Topics
>
Latest Articles
Top Articles
Posting/Update Guidelines
Article Help Forum
Submit an article or tip
Import GitHub Project
Import your Blog
quick answers
Q&A
Ask a Question
View Unanswered Questions
View All Questions
View C# questions
View Javascript questions
View C++ questions
View Python questions
View Java questions
discussions
forums
CodeProject.AI Server
All Message Boards...
Application Lifecycle
>
Running a Business
Sales / Marketing
Collaboration / Beta Testing
Work Issues
Design and Architecture
Artificial Intelligence
ASP.NET
JavaScript
Internet of Things
C / C++ / MFC
>
ATL / WTL / STL
Managed C++/CLI
C#
Free Tools
Objective-C and Swift
Database
Hardware & Devices
>
System Admin
Hosting and Servers
Java
Linux Programming
Python
.NET (Core and Framework)
Android
iOS
Mobile
WPF
Visual Basic
Web Development
Site Bugs / Suggestions
Spam and Abuse Watch
features
features
Competitions
News
The Insider Newsletter
The Daily Build Newsletter
Newsletter archive
Surveys
CodeProject Stuff
community
lounge
Who's Who
Most Valuable Professionals
The Lounge
The CodeProject Blog
Where I Am: Member Photos
The Insider News
The Weird & The Wonderful
help
?
What is 'CodeProject'?
General FAQ
Ask a Question
Bugs and Suggestions
Article Help Forum
About Us
Search within:
Articles
Quick Answers
Messages
Comments by Computechsoft (Top 47 by date)
Computechsoft
5-Dec-20 8:03am
View
Microsoft object library can be use for this purpose you can tell some time component not add in toolbox or not displaying in Add reference ? so how to search or add this component?
Computechsoft
5-Jul-20 2:12am
View
I have resolved ? this issue
Integrated security = True
Computechsoft
28-Jun-20 12:39pm
View
I have created user login in SQL server when i do run application.
This error showing ?
Cannot open database "ABC" requested by the login,
login failed for user 'SampleDataBase' ?
Maybe access permission issue ?
Computechsoft
13-Jan-20 9:46am
View
I want to using this file from resources folder
Dim EmbeddedBytes As Byte() = My.Resources.Embedded
****************
I have seen your example code
How to Load and Display Crystal Reports in VB.NET[^]
Dim objForm As New frmViewReport
objForm.ViewReport("C:\test.rtp", , "@parameter1=test¶mter2=10")
objForm.show()
Computechsoft
10-Jan-20 1:31am
View
I now I can't want to open the file anyway but I want embedded resources therefore i
was asking from resources folder.
Computechsoft
9-Jan-20 8:54am
View
Ok i am waiting
Computechsoft
7-Jan-20 9:33am
View
Deleted
Thanks for spend time. Issue is resolve only space issue.
Best regards
Computechsoft
7-Jan-20 9:15am
View
Yes i have closed manually "Microsoft Edge" no error perfect working.
Only i have to close "Microsoft Edge" Pragmatically ?
but Edges Lenth = 0
Dim Edges() As Process = Process.GetProcessesByName("Microsoft Edge")
For Each Process As Process In Edges
Process.Kill()
Next
Computechsoft
7-Jan-20 8:44am
View
PdfReader was installed in my system? now this document opening in "Microsoft Edge"
therefore this error showing now tell me i am applying this
Kill("Microsoft Edge.lnk")
but not be killing (Microsft Edges)
Computechsoft
7-Jan-20 7:06am
View
If i am restarting my system when again start my project first time run perfectly
second time coming this error.
Computechsoft
6-Jan-20 5:51am
View
Thanks a lots issue is resolve. I can write English but not very well i hope you can understand better.
You are genius person, you are resolve this issue very technically.
Lastly I would like to wish you all a very successful future.
Best regards.
Computechsoft
6-Jan-20 3:35am
View
I am saying i don't want to open these documants
(Microsoft Print to pdf)
(Microsoft XPS Document writer)
(OneNote)
Receipt directly print on printer, before printing not open receipt in these Documents?
Computechsoft
6-Jan-20 1:29am
View
I have applied this but same situation "OneNote is opening not direct print"
Dim mySelectionFormula As String = "{Invoice_Master.Invoice_no} = '" & FrmSalebill.LblInvoiceno.Text & "'"
CashReceipt.RecordSelectionFormula = mySelectionFormula
Dim printDocument = New Printing.PrintDocument
CashReceipt.PrintOptions.PrinterName = printDocument.PrinterSettings.PrinterName
CashReceipt.PrintToPrinter(1, True, 1, 1)
Computechsoft
5-Jan-20 12:12pm
View
I am Create another post.
Computechsoft
5-Jan-20 9:43am
View
I have applied this but print is going on printer but "OneNote" is opening
I don't want to open "OneNot".
Directly print on printer lots of adds coming between printing. Just like POS printing.
Computechsoft
5-Jan-20 4:44am
View
Its ok print directly going on printer but Microsoft default printer (OneNote) is opening. But my Receipt is (POS) Print.
Computechsoft
5-Jan-20 4:18am
View
Dim ConnectionInfo As ConnectionInfo = New ConnectionInfo()
Dim CashReceipt As New ReportDocument()
CashReceipt.Load(Application.StartupPath & "\Reports\Sale Reports\CashReceipt.rpt")
Dim MyTables As Tables = CashReceipt.Database.Tables
For Each MyTable As CrystalDecisions.CrystalReports.Engine.Table In MyTables
Dim MyTableLogonInfo As TableLogOnInfo = MyTable.LogOnInfo
ConnectionInfo.ServerName = ".\SQLEXPRESS"
ConnectionInfo.DatabaseName = ""Admin
ConnectionInfo.UserID = "sa"
ConnectionInfo.Password = "admin"
ConnectionInfo.IntegratedSecurity = False
MyTableLogonInfo.ConnectionInfo = ConnectionInfo
MyTable.ApplyLogOnInfo(MyTableLogonInfo)
Next
RPTfrmCashReport.CrystalReportViewer1.ReportSource = CashReceipt
CashReceipt.PrintToPrinter(1, False, 0, 0)
Dim mySelectionFormula As String = "{Invoice_Master.Invoice_no} = '" & FrmSalebill.LblInvoiceno.Text & "'"
RPTfrmCashReport.CrystalReportViewer1.ViewTimeSelectionFormula = mySelectionFormula
Computechsoft
5-Jan-20 3:27am
View
Yes i am saying? that filtering works correctly with print preview but does not work when printing directly?
Yes i have applied ViewTimeSelectionFormula but report showing not print directly
so please resolve this issue without preview direct send to printer.
Dim mySelectionFormula As String = "{Invoice_Master.Invoice_no} = '" & LblInvoiceno.Text & "'" CrystalReportViewer1.ViewTimeSelectionFormula = mySelectionFormula
Computechsoft
5-Jan-20 2:48am
View
Yes i am using CrystalReportViewer. My selection formula is work fine no problem in this. When i sending report direct on printer therefore i am using this line
InvoicePrint.PrintToPrinter(1, false, 0, 0)
This line show all records how to set particular record in this line just like selection formula under below line.
CrystalReportViewer1.SelectionFormula = "{Invoice_Master.Invoice_no} = '" & LblInvoiceno.Text & "'"
Computechsoft
5-Jan-20 2:32am
View
sorry some typing mistake
I want to send Direct print on printer without viewing i am using this line "PrintToPrinter" but this line show all records how to define particular record in this line just like "Selection formula"
CrystalReportViewer1.ReportSource = InvoicePrint
InvoicePrint.PrintToPrinter(1, false, 0, 0)
CrystalReportViewer1.SelectionFormula = "{Invoice_Master.Invoice_no} = '" & LblInvoiceno.Text & "'"
Computechsoft
4-Jan-20 22:58pm
View
How to print particular record you can see in selection formula
'RPTfrmCashReport.CrystalReportViewer1.ReportSource = CashReceipt
RptObject.PrintToPrinter(1, false, 0, 0)
RPTfrmCashReport.CrystalReportViewer1.SelectionFormula = "{Invoice_Master.Invoice_no} = '" & LblInvoiceno.Text & "'" Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Computechsoft
13-Jul-19 5:34am
View
RichTextBox1.SelectionFont = RichTextBox1.GetSymbology(14, FontStyle.Regular)
if font install in windows font folder this is work if not install no work.
i don't want to install font in windows font folder. I am Using "Embedded Resources"
***********************************************************************
RichTextBox1.SelectionFont = New Font("Tahoma", 12, FontStyle.Bold)
Same Situation here
Computechsoft
12-Jul-19 14:05pm
View
I see the last answer but i don't want to install font in windows font folder. I want to use font from Application resources folder. Its mean "Embedded Resources". I have applied this kindly check this i hope you will solve this issue.
************************************************************************
Imports System.Drawing.Text
Imports System.Runtime.InteropServices
Public Class Form1
Public Property SelectionFont As System.Drawing.Font
Public _PrivateFontColection As PrivateFontCollection = Nothing
ReadOnly Property GetSymbology(ByVal Size As Single, ByVal style As FontStyle) As Font
Get
If _PrivateFontColection Is Nothing Then LoadFont()
Return New Font(_PrivateFontColection.Families(0), Size, style)
End Get
End Property
Public Property StartingIndex As Integer
Private Sub LoadFont()
_PrivateFontColection = New PrivateFontCollection
Dim fontMemPointer As IntPtr = Marshal.AllocCoTaskMem(My.Resources.TTF.Length)
Marshal.Copy(My.Resources.TTF, StartingIndex, fontMemPointer, My.Resources.TTF.Length)
_PrivateFontColection.AddMemoryFont(fontMemPointer, My.Resources.TTF.Length)
Marshal.FreeCoTaskMem(fontMemPointer)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
RichTextBox1.SelectionFont = RichTextBox1.GetSymbology(14, FontStyle.Regular)
End Sub
End Class
Best regards
Computechsoft
12-Jul-19 7:50am
View
RTBox.SelectionFont = RTBox.GetSymbology39(14, FontStyle.Regular)
GetSymbology39 is ReadOnly Property another this is This font is not install in
Windows font folder i am using this property Through Embedded Resources.
but font is not display in RTBox. If i installed in windows font folder so (GetSymbology39) property work fine. without installation not work.
Computechsoft
12-Jul-19 7:20am
View
Deleted
This is RichTextBox1
Computechsoft
12-Jul-19 7:13am
View
RichTextBox
Computechsoft
10-Jul-19 15:38pm
View
Thanks phil.o Its help full very easy to control icon
Computechsoft
24-Jun-19 2:21am
View
Thanks Dave Kreskowiak for your early reply
thats was my mistake i have not check one link you send me my issue is resolved.
Thanks again
Computechsoft
21-Mar-19 13:44pm
View
These are also RichTextBoxStreamType property but Text Box Data not show in PDF
RichTextBoxStreamType.PlainText
RichTextBoxStreamType.RichNoOleObjs
RichTextBoxStreamType.RichText
RichTextBoxStreamType.TextTextOleOjjs
RichTextBoxStreamType.UniCodePlainText
Computechsoft
4-Feb-19 12:16pm
View
but problem is font not copy in the Windows Font Folder
Computechsoft
4-Feb-19 8:46am
View
Thanks Maciej Los this help full
Computechsoft
4-Feb-19 8:14am
View
Font file copy in windows font folder "C:\Windows\Fonts"
Computechsoft
21-Jan-19 9:21am
View
Its very simple Question System resolution change if application install on client side system how to change set this resolution (1366x768) (this is my Question)
Computechsoft
24-Nov-18 3:04am
View
Same issue after Multiply by 100
"Answer is ("One hundred seventy five and 90 paisa only")
I want this ("One hundred seventy four and 90 paisa only"
if right(Towords({Invoice_Detail.After_Invoice_Discount_Total}),2 * 100)="00"
then
Lcase(ToWords({Invoice_Detail.After_Invoice_Discount_Total},0))+" "+"only"
else
Lcase(ToWords({Invoice_Detail.After_Invoice_Discount_Total},0))+" and "+Lcase(ToWords(tonumber(right(Totext({Invoice_Detail.After_Invoice_Discount_Total}),2)),0))+" "+"paisa only"
Computechsoft
23-Sep-18 7:19am
View
How to talk to the DB admin
you can tell any link so that talk to him
Computechsoft
22-Sep-18 4:09am
View
But this line is comment if uncomment this message display
Cannot open database "TestScript" requested by then logn.
The login faild
Login failded for user 'Administrator'
Computechsoft
22-Sep-18 4:05am
View
Sorry ? This error message on this connection this is Administrator Connection
'Dim SQLConnectionString As String = "Data Source=Computech-PC\SQLEXPRESS;Initial Catalog=Master;User ID=Administrator;Password=Admin", providerName1 = "System.Data.SqlClient"
Computechsoft
21-Sep-18 1:50am
View
First Query is wrong because i am using Catalog="Master"
Second query is correct Catalog="TestScript"
Therefor table were save in Master table
Thanks OriginalGriff for Solution
Computechsoft
19-Sep-18 2:39am
View
Thanks Permalink it is help full
Computechsoft
18-Sep-18 14:08pm
View
This Ok but i want Vb.net
Computechsoft
10-Sep-18 14:09pm
View
Windows form
Computechsoft
13-Dec-16 1:23am
View
Same problem still after this implement ("regKey should be closed here..")
Computechsoft
13-Dec-16 1:07am
View
Same problem after this implement "'regKey should be closed here"
Computechsoft
13-Dec-16 1:05am
View
Same Problem
not solve
Computechsoft
13-Dec-16 0:48am
View
How to solve this problem
when i am close application and restart application.
error will be display: Requested registry access is not allowed
how can access?
Computechsoft
14-Sep-16 11:22am
View
Record not display in datagridview
Computechsoft
14-Sep-16 11:09am
View
Problem not solve
same issue
Show More