Printer Object

[everyone]

با سلام
چه طور مي تونم موقع پرينت تنظيمات صفحه رو مشخص كنم. براي مثال اندازه صفحه كه A4 باشه يا A5 و ...
يه چيزي مثل Print‌برنامه Word
ممنون

[meys34]

براي اندازه صفحه خيلي راحته:

Printer.PaperSize = vbPRPSA4
براي بقيه چيزها همين طور مثلا شماره صفحه اي كه بايد چاپ بشه:

Printer.Page=2
و...
كه ميتوني با زدن كليد F2 و سرچ زدن Printer بقيه شو پيداكني:متفکر:


ولي...:گریه::عصبانی: براي بقيه چيزها به اين سادگي نيست و من خودم هم در به در دنبالشم مثلا اينكه فقط از كارتريج مشكي استفاده كنه يا تنظيماتي كه توي Print dialog هستش رو استفاده كني يا استفاده از Common Dialog براي پرينت گرفتن(CommonDialog1.ShowPrinter)

[everyone]

خوب اين Code‌باعث ميشه پنجره SetUp نمايش داده بشه ولي بعد از اعمال تغييرات و زدن دكمه Print بدون اعمال تغييرات پرينت مي گيره.


Dim intX As Integer
Dim intCopies As Integer
On Error GoTo cmdPrint_Click_Exit
cmd1.CancelError = True
cmd1.Flags = cdlPDHidePrintToFile + cdlPDNoPageNums + cdlPDNoSelection
'cmd1.Flags = cdlPDPrintSetup
cmd1.ShowPrinter
intCopies = cmd1.Copies
On Error GoTo cmdPrint_Click_Error
For intX = 0 To Printer.FontCount - 1
If Printer.Fonts(intX) Like "Courier*" Then
Printer.FontName = Printer.Fonts(intX)
Exit For
End If
Next
Printer.FontSize = 10
For intX = 1 To intCopies
If intX > 1 Then
Printer.NewPage
End If

Next
Printer.EndDoc

Exit Sub
cmdPrint_Click_Error:
MsgBox "The following error has occurred:" & vbNewLine & "Err # " & Err.Number & " - " & Err.Description, vbCritical, "Print Error"
cmdPrint_Click_Exit:


شايد شما جوابشو بدوني

[meys34]

كسي نيست كمكي بكنه اين مشكل من هم هست:گریه:

[rouzbeh_ziafati]

این قطعه کد باعث میشه تا قبل از پرینت گرفتن پنجره print setup باز بشه .
اما مشکلی که هست اینکه کارهایی که در پنجره print setup انجام میشه بعد از زدن دکمه print اعمال نمیشه .
مثلا من می خوام از روی فرم 3 بار پشت سر هم print بگیرم . اما این کار انجام نمیشه !
چه قطعه کدی باید به این برنامه اضافه کنم تا تغییراتی که در print setup اعمال میکنم به برنامه اعمال بشه .
http://www.sharemation.com/rouzbeh_ziafati/print%20setup.rar