10410_tisk-etiket.zip
Uzamčeno - nelze přidávat nové příspěvky.
Tenhle kód našel google, bohužel mi nechce tisknout. Možná to někdo znalejší rozchodí
Sub test()
Dim MyFile As String
Dim Enterkey As String
Dim Alt As String
Dim RetVal As Variant
'----------------------
MyFile = "C:\TEST.TXT"
Enterkey = "~"
Alt = "%"
'- open file in notepad
RetVal = Shell("notepad.exe" & " " & MyFile, vbNormalFocus)
If RetVal = 0 Then
MsgBox ("Problem opening Notepad.")
End
End If
'- send keystrokes to print
SendKeys Alt & "FP", True
'- wait 2 seconds for print to happen
Application.Wait Now + TimeValue("00:00:02")
'- close notepad
SendKeys Alt & "{F4}", True
End Sub citovat
Sub test()
Dim MyFile As String
Dim Enterkey As String
Dim Alt As String
Dim RetVal As Variant
'----------------------
MyFile = "C:\TEST.TXT"
Enterkey = "~"
Alt = "%"
'- open file in notepad
RetVal = Shell("notepad.exe" & " " & MyFile, vbNormalFocus)
If RetVal = 0 Then
MsgBox ("Problem opening Notepad.")
End
End If
'- send keystrokes to print
SendKeys Alt & "FP", True
'- wait 2 seconds for print to happen
Application.Wait Now + TimeValue("00:00:02")
'- close notepad
SendKeys Alt & "{F4}", True
End Sub citovat
RSS nejnovější články