< návrat zpět
MS Excel
Téma: Tisk z poznamkoveho bloku.
Zaslal/a stanher 23.11.2012 12:34
Ahoj,
mam excel soubor do ktereho jsou zaznamenavany data jako napr. (datum, operator, smena, atd). Na zaklade techto dat (promennych) pomoci makra vygeneruji textovy soubor, ktery je ulozen do poznamkoveho bloku. Nasledne musim takto vytvoreny poznamkovy blok otevrit a dat tisknout. Tuto operaci bych potreboval ovladat take pomoci makra, ale nevim jak prinutit tisk poznamkoveho bloku z excelu, pokud to je vubec mozne. Prikladam vzorek
Příloha: 10410_tisk-etiket.zip (28kB, staženo 27x)
Uzamčeno - nelze přidávat nové příspěvky.
Stalker(30.11.2012 16:48)#010502 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
marjankaj(30.11.2012 19:09)#010503 SendKeys Alt & "FP", TrueToto asi bude pre anglickú verziu notepadu.
ALT+File a Print
pre slovenskú alebo českú by to bolo
SendKeys Alt & "ST", TrueALT+Soubor a Tisk
Alebo tam môžeš dať miesto toho
CTRL+P
Teda
Ctrl="^"
SendKeys Ctrl & "P", TrueNeskúšal som to.
citovat
Stalker(30.11.2012 20:40)#010504 Ctrl="^"
SendKeys Ctrl & "P", True
Toto nefunguje, to bylo první co sem zkoušel než sem to sem vložil.
a tohle
SendKeys Alt & "ST", True
při krokování (F8) vloží na řádek pod písmeno T a když nahradím Alt za Ctrl tak k tomu ještě vypne numlock.
citovat
stanher(1.12.2012 9:20)#010505 Dekiji vsem za prispevky. Ten kod od uzivatele Stalker taky nemuzu rozchodit.Chci vyzkouset ten tisk primo z excelu co poslal dream2003, ale to budu moct az v pondeli v praci. Samozrejme pokud nekdo prijde jeste z nejakym napadem budu rad.
Dik
citovat
stanher(4.12.2012 16:23)#010551 Jeste jednou diky, hlavne pro "dream2003". Funguje to perfektne.
Jen je treba si pohrat s nastavenim tisku. Timto tema povazuji za uzavrene.
citovat