مشکل تغییر اندازه کاغذ پرینتر به اندازه ای دلخواه

[sourenaface]

With Printer
.PaperSize = vbPRPSUser
.Height = x
.Width = y
End With

سلام ، من این کار رو کردم پرینتر مجازی آفیس با این دستور به خوبی کار میکنه ، اما پرینتر من که لیزری هست و مدلش اچ پی 1010 هستش قبول نمیکنه و هر چی من اندازه بهش میدم اون یه اندازه رو خود به خود انتخاب میکنه و هیچ تغییری هم به اندازه انتخابیش نمی ده

[Morteza Manafpour]

شما از DataReport یا CrystallReport استفاده کن

[sourenaface]

شما از DataReport یا CrystallReport استفاده کننمیتونم چون می خوام با پرینتر چک چاپ کنم و ممکنه ابعاد چک تغییر کنه و از این حرفها ، دنبال جواب برای این سوال هستم نه برای راههای ممکن دیگه
ممنونم از کمکت

[(سیدشریفی)]

در کار کردن با متد Printer به نظر من اندازه کاغذ مهم نیست موقعیت چاپ مهم است :


Printer.Font.Bold = False
Printer.Font.Italic = False
Printer.Font.Name = "Tahoma"
Printer.Font.Strikethrough = False
Printer.Font.Underline = False
Printer.Font.Size = 10

Printer.CurrentX = 11000
Printer.CurrentY = 100
Printer.Print MyText


:موفق:

[sourenaface]

ای بابا اینا رو که بلدم عزیز
ببینید بعضی از پرینترها کاغذهای کوچک رو از سمت راست یا چپ میگیرند و بعضی هم از وسط
من تونستم یه جوری مشکل رو با اونائی که کاغذ رو از وسط میگیرن حل کنم اما برای اونائی که از بغل کاغذ رو میگیرن حتما باید اندازه کاغذ رو بهشون بدم
*****
نمی دونم شاید من نمی تونم مشکلم رو خوب مطرح کنم
من می خوام ببینم چرا پرینتر من با این دستور که بالا گفتم ست نمیشه
اما پرینتر آفیس یا حتی پرینتر آدوبی ریدر به خوبی باهاش ست میشه
اگه کسی بلده لطفا این سوال رو جواب بده ، من با راههای مشابه برای حل مشکلم کاری ندارم
ممنون

[(سیدشریفی)]

جناب sourenaface
من هم برنامه ای برای چاپ چک نوشته ام
و در برنامه برای تنظیم اولیه یک چک مشخص اعدادی را قرار داده ام
که این اعداد بر روی یک پرینتر مشخص و یک چک مشخص تنظیم میشوند و اگر پرینتر فرق کند یا نوع چک فرق کند این اعداد باید از اول تنظیم شوند .
من مشکل را بدین صورت حل کرده ام و نتوانستم با دادن اندازه کاغذ کاری را انجام دهم چون نوع پرینترها زیاد میباشد و نمیتوانستم برای همه آنها برنامه را تنظیم کنم ولی این راهی که گفتم در هر نوع پرینتری جواب میدهد .
اگر خواستید در روش خودم به شما کمک میکنم

:)

[sourenaface]

سلام
منم همین کار رو کردم
اما اگه لطف کنید برنامتون رو بفرستید ممنون می شم
اما اگه ابعاد کاغذ رو بهش بدیم دیگه فرقی نمیکنه پرینتر چی باشه
بازم ممنونم

[علیرضاقانونی]

سلام چه راهی ؟ لطف کن برام کدهاشو بزار