Snasui Excel Forum

ขอบคุณครับ

รบกวนสอบถามอาจารย์ด้วยครับ ผมต้องการไห้ปริ้นที่ละ 2 Copy ต้องเพิ่มเติม ตรงไหนครับ
ขอบคุณครับ :roll:
Sub PrintOutput()
Dim Apt, a As String
'If Application.Dialogs(xlDialogPrinterSetup).Show Then
Apt = Application.ActivePrinter
'End If
Application.ActivePrinter = Apt
a = InputBox("Please ...

boykungee23 wrote:
รบกวนอีกครั้งครับอาจารย์ ผมแก้Code ตามอาจารย์แนะนำแล้วครับแต่ทำไหมผมพิมพ์แล้วข้อมูลออกมาเป็นแบบนี้อ่ะครับ

ข้อมูลในCell E1 = 1335150109 ปริ้นออกมาเป็น 1.335E+09 ต้องแก้ตรงไหนครับ

ขอบคุณครับ

ผมแก้ไขได้เเล้วครับอาจารย์ ขอบคุณครับ

รบกวนอีกครั้งครับอาจารย์ ผมแก้Code ตามอาจารย์แนะนำแล้วครับแต่ทำไหมผมพิมพ์แล้วข้อมูลออกมาเป็นแบบนี้อ่ะครับ

ข้อมูลในCell E1 = 1335150109 ปริ้นออกมาเป็น 1.335E+09 ต้องแก้ตรงไหนครับ

ขอบคุณครับ

snasui wrote: สามารถปรับ Code เป็นด้านล่างครับ

Code: Select all

'Other code
a = InputBox("Please input Range")
Cells(1, 1) = Range(a).Value
Range("A1").PrintOut
'Other code

ขอบคุณครับอาจารย์

ขอรบกวนอีกนิดครับ ถ้าผมใช้Loop ประมาณนี้จะพอได้ไหมครับ บบ :shock: กรุณาให้ความใส่ใจสิ่งที่ผมเตือน หากผมเตือนบ่อย ๆ จะกระทบกับความเป็นสมาชิกครับ

ขออภัยครับอาจารย์ :geek: :geek: :geek:



รบกวนอาจารย์ด้วยครับ ผมลองหาข้อมูลเพิ่มเติม และลองเขียนแล้วแต่ยังไม่ตรงตามความต้องการครับ รบกวนแนะนำด้วยครับ ...

ขอบคุณครับอาจารย์
ขอรบกวนอีกนิดครับ ถ้าผมใช้Loop ประมาณนี้จะพอได้ไหมครับบบ
loop i = 1 to 10
b3 = a
print b3
next i

รบกวนอาจารย์ด้วยครับ
1.ผมจะปริ้นCell F5 ด้วยการกดปุ่ม ปริ้น (ตามที่อาจารย์แนะนำ อันนี้ได้แล้วครับ)
2.ผมจะเอาข้อมูลใน E1 ถึง E10 มาลงใน F5 เพื่อจะปริ้นได้ยังไงครับโดยที่ข้อมูล ผมจะมาที่ละแถว คือE1 มากดปริ้น -E2 มากดปริ้น -E3 มากดปริ้น ....ข้อมูลในF5
3.หรือไม่ผมสามารถเขียนvba ให้กดปริ้นครั้งแรกที่ F5 ...