37 lines
1.5 KiB
VB.net
37 lines
1.5 KiB
VB.net
Public Class FrmPrinters
|
|
Private Sub FrmPrinters_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim InstalledPrinters As String
|
|
|
|
' Find all printers installed
|
|
For Each InstalledPrinters In System.Drawing.Printing.PrinterSettings.InstalledPrinters
|
|
Me.ComboBox1.Items.Add(InstalledPrinters)
|
|
Me.ComboBox2.Items.Add(InstalledPrinters)
|
|
Me.cobSell.Items.Add(InstalledPrinters)
|
|
Next InstalledPrinters
|
|
Me.ComboBox1.Items.Add("Off")
|
|
Me.ComboBox1.Text = "Off"
|
|
Me.ComboBox2.Items.Add("Off")
|
|
Me.ComboBox2.Text = "Off"
|
|
Me.cobSell.Items.Add("Off")
|
|
Me.cobSell.Text = "Off"
|
|
|
|
' Set the combo to the first printer in the list
|
|
Me.ComboBox1.SelectedItem = My.Settings.printerFastSellInvoice
|
|
Me.ComboBox2.SelectedItem = My.Settings.printerFastSellCashdeskInvoice
|
|
Me.cobSell.SelectedItem = My.Settings.printerSell
|
|
Me.TxtToken.Text = My.Settings.printerToken
|
|
End Sub
|
|
|
|
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
|
My.Settings.printerFastSellInvoice = ComboBox1.SelectedItem.ToString
|
|
My.Settings.printerFastSellCashdeskInvoice = ComboBox2.SelectedItem.ToString
|
|
My.Settings.printerSell = cobSell.SelectedItem.ToString
|
|
My.Settings.printerToken = TxtToken.Text.ToString
|
|
My.Settings.Save()
|
|
MsgBox("تنظیمات ذخیره شد", MsgBoxStyle.OkOnly, "حسابیکس")
|
|
|
|
End Sub
|
|
|
|
|
|
' حذف کنترل انتخاب مسیر Acrobat
|
|
End Class |