View Full Version : چاپ با پرينتري غير از پرينتر پيش فرض
Armin62
پنج شنبه 27 فروردین 1394, 09:32 صبح
سلام عزيزان
يك مشكلي برام پيش اومده اگه بشه راهنمايي كنيد ممنون ميشم
برنامه با كريستال و vb6 نوشته شده
در يك برنامه حسابداري من از دو پرينتر دارم استفاده ميكنم يك پرينتر معمولي و يك فيش پرينتر و ميخوام كه بشه از هر دو پرينتر چاپ گرفت يا حداقل بشه اسم پرينتر مورد نظرمو از طريق برنامه نويسي معرفي كنم. ممنون ميشم راهنمايي كنيد
با تشكر
golbafan
پنج شنبه 27 فروردین 1394, 09:40 صبح
سلام
جمع آوری لیست پرینتر ها و فعال کردن آنها:
private void PopulateInstalledPrintersCombo(){
String pkInstalledPrinters;
for (int i = 0; i < PrinterSettings.InstalledPrinters.Count; i++){
pkInstalledPrinters = PrinterSettings.InstalledPrinters[i];
comboInstalledPrinters.Items.Add(pkInstalledPrinte rs);
}
}
//فعالکردن یک پرینتر:
private void comboInstalledPrinters_SelectionChanged(object sender, System.EventArgs e)
{
if (comboInstalledPrinters.SelectedIndex != -1)
{
printDoc.PrinterSettings.PrinterName= comboInstalledPrinters.Text;
}
}
Armin62
پنج شنبه 27 فروردین 1394, 09:49 صبح
دوست عزيز اين دستوري كه قرار داديد مربوط به خود كريستال هست درسته
من با وي بي 6 قبل لود شدن فرم بايد تغيير پرينتر رو انجام بدم تا ابعاد فرم گزارشم تغيير نكنه ؟
ميشه راهنمايي كنيد؟
golbafan
پنج شنبه 27 فروردین 1394, 10:30 صبح
ببخشید من با C# فرستاده بودم :اشتباه:
لیست پرینترها با vb:
Dim i As Integer
Dim pkInstalledPrinters As String
For i = 0 To System.Drawing.Printing.PrinterSettings. _
InstalledPrinters.Count - 1
pkInstalledPrinters = System.Drawing.Printing.PrinterSettings. _
InstalledPrinters.Item(i)
ListBox1.Items.Add(pkInstalledPrinters)
Next
با vb6:
Dim X As Printer
For Each X In Printers
List1.AddItem X.DeviceName
Next
ست کردن یک پرینتر با استفاده از اسمش:
Private Function SelectPrinter(ByVal printer_name As _
String) As Boolean
Dim i As Integer
SelectPrinter = True
For i = 0 To Printers.Count - 1
If Printers(i).DeviceName = printer_name Then
Set Printer = Printers(i)
SelectPrinter = False
Exit For
End If
Next i
End Function
Armin62
پنج شنبه 27 فروردین 1394, 12:00 عصر
دوست عزيزم ممنونم از راهنماييتون ولي اين دستورات براي پرينت از داخل خود ويبي مثل پرينت فرم كار ميكنه . ولي براي پرينت فرمهاي كريستال عمل نميكنه و در كريستال پرينتر پيش فرضو انتخاب ميكنه
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.