< návrat zpět

MS Excel


Téma: Tisk z poznamkoveho bloku. rss

Zaslal/a 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: zip10410_tisk-etiket.zip (28kB, staženo 27x)
stop Uzamčeno - nelze přidávat nové příspěvky.

Strana:  « předchozí  1 2
#010502
Stalker
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
#010503
avatar
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", True
Neskúšal som to.citovat
#010504
Stalker
Ctrl="^"
SendKeys Ctrl & "P", True

Toto nefunguje, to bylo první co sem zkoušel než sem to sem vložil.

a tohleSendKeys 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
#010505
avatar
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.
Dikcitovat
#010551
avatar
Jeste jednou diky, hlavne pro "dream2003". Funguje to perfektne.
Jen je treba si pohrat s nastavenim tisku. Timto tema povazuji za uzavrene.citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje