Comments by Computechsoft (Top 47 by date)

Ok i am waiting

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

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)

If i am restarting my system when again start my project first time run perfectly
second time coming this error.

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.

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?

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)

I am Create another post.

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.

Its ok print directly going on printer but Microsoft default printer (OneNote) is opening. But my Receipt is (POS) Print.

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

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

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 & "'"

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 & "'"

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

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

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

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.

RichTextBox

Thanks phil.o Its help full very easy to control icon

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

These are also RichTextBoxStreamType property but Text Box Data not show in PDF

RichTextBoxStreamType.PlainText
RichTextBoxStreamType.RichNoOleObjs
RichTextBoxStreamType.RichText
RichTextBoxStreamType.TextTextOleOjjs
RichTextBoxStreamType.UniCodePlainText

but problem is font not copy in the Windows Font Folder

Thanks Maciej Los this help full

Font file copy in windows font folder "C:\Windows\Fonts"

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)

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"

How to talk to the DB admin
you can tell any link so that talk to him

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'

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"

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

Thanks Permalink it is help full

This Ok but i want Vb.net

Windows form

Same problem still after this implement ("regKey should be closed here..")

Same problem after this implement "'regKey should be closed here"

Same Problem
not solve

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?

Record not display in datagridview

Problem not solve
same issue