ResellerMaxis
Active+ Member
- Messages
- 4,163
- Joined
- May 12, 2013
- Messages
- 4,163
- Reaction score
- 366
- Points
- 41
Salam kawan-kawan semua..minta tolong sikit..
saya tengah wat program print automation untuk pdf file..
ada 2 cara saya jumpa..
1 guna process start info/system.diagnostic.process
- cara ni saya dah guna untuk wat automation word file and xder masalah..cuma bila pdf..wait for exit dia xberfungsi..so data di hantar secara bundle ke dalam printer..xikut susunan..
2. guna pdf component..cara ni masalahnya xleh select printer..kena guna default printer sahaja..
contoh code guna process..
objProcess = New System.Diagnostics.Process()
objProcess.StartInfo.Verb = "printto"
objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
objProcess.StartInfo.CreateNoWindow = True
PrintDocument1.PrinterSettings.PrinterName = "nama printer"
objProcess.StartInfo.FileName = "nama file"
objProcess.Start()
Dim timeout = 1000
While timeout > 0 And Not objProcess.HasExited
Application.DoEvents()
timeout = timeout - 1
End While
If Not objProcess.HasExited Then
objProcess.Kill()
End If
objProcess.Close()
objProcess.Dispose()
process tu semua dalam loop dan akan ulang banyak-banyak kali..
ada cara lain x?or apa-apa cadangan nak bagi dia process 1 demi 1 file..xhantar terus semua file ke dalam printer queue secara serentak
saya tengah wat program print automation untuk pdf file..
ada 2 cara saya jumpa..
1 guna process start info/system.diagnostic.process
- cara ni saya dah guna untuk wat automation word file and xder masalah..cuma bila pdf..wait for exit dia xberfungsi..so data di hantar secara bundle ke dalam printer..xikut susunan..
2. guna pdf component..cara ni masalahnya xleh select printer..kena guna default printer sahaja..
contoh code guna process..
objProcess = New System.Diagnostics.Process()
objProcess.StartInfo.Verb = "printto"
objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
objProcess.StartInfo.CreateNoWindow = True
PrintDocument1.PrinterSettings.PrinterName = "nama printer"
objProcess.StartInfo.FileName = "nama file"
objProcess.Start()
Dim timeout = 1000
While timeout > 0 And Not objProcess.HasExited
Application.DoEvents()
timeout = timeout - 1
End While
If Not objProcess.HasExited Then
objProcess.Kill()
End If
objProcess.Close()
objProcess.Dispose()
process tu semua dalam loop dan akan ulang banyak-banyak kali..
ada cara lain x?or apa-apa cadangan nak bagi dia process 1 demi 1 file..xhantar terus semua file ke dalam printer queue secara serentak