چاپ با پرينتري غير از پرينتر پيش فرض

[Armin62]

سلام عزيزان
يك مشكلي برام پيش اومده اگه بشه راهنمايي كنيد ممنون ميشم
برنامه با كريستال و vb6 نوشته شده
در يك برنامه حسابداري من از دو پرينتر دارم استفاده ميكنم يك پرينتر معمولي و يك فيش پرينتر و ميخوام كه بشه از هر دو پرينتر چاپ گرفت يا حداقل بشه اسم پرينتر مورد نظرمو از طريق برنامه نويسي معرفي كنم. ممنون ميشم راهنمايي كنيد
با تشكر

[golbafan]

سلام

جمع آوری لیست پرینتر ها و فعال کردن آنها:

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]

دوست عزيز اين دستوري كه قرار داديد مربوط به خود كريستال هست درسته
من با وي بي 6 قبل لود شدن فرم بايد تغيير پرينتر رو انجام بدم تا ابعاد فرم گزارشم تغيير نكنه ؟
ميشه راهنمايي كنيد؟

[golbafan]

ببخشید من با 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]

دوست عزيزم ممنونم از راهنماييتون ولي اين دستورات براي پرينت از داخل خود ويبي مثل پرينت فرم كار ميكنه . ولي براي پرينت فرمهاي كريستال عمل نميكنه و در كريستال پرينتر پيش فرضو انتخاب ميكنه