Stránka 1 z 1
VBA - Vytvoření souboru a jeho následný tisk Vyřešeno
Napsal: 09 úno 2008 19:11
od LaresG
Zdravim ve škole na programování jsme brali VBA vytvoření nového souboru , a s tím že do něj něco zapíšeme kód vypadá následovně
Kód: Vybrat vše
Private Sub CommandButton1_Click()
Dim Jana As String
Open "C:\Documents and Settings\Lares\Plocha\uctenka.txt" For Output As #1
Print #1, "test tisku"
Jana = "1radek"
Print #1, "test" + Jana
Close #1
MsgBox ("hotovo")
End Sub
A pan učitel po nás chce aby sme k tomu všemu přidali ještě příkaz který ten soubor kterej se vytvořil aby se automaticky vytiskl , nemohl by mi někdo poradit co s tím vůbec netuším.......díky za odpověd
Napsal: 10 úno 2008 19:46
od LaresG
jde vlastně o to že já vytvořím ten button (tlačítko) do něj napíšu kod že vytvořím soubor textovej do něj něco napíšu napíšu kod na tisk , a dám msb box na hotovo , pak vypnu režim návrhu , kliknu na to tlačítko vyskočí mi hotovo , a chtěl bych aby mi vyskočilo okno na tisk , toho soubor který sem vytvořil , neví někdo pls ?
Napsal: 14 úno 2008 10:20
od franticek
Nejsem si zcela jist, ale měl by jsi asi ten soubor otevřít jako objekt typu FSO a poté se pokusit použít metodu print anebo zavolat systemovou funkci pro tisk a jako parametr použít ten soubor. Pokud nic nenajdeš, zkusím pohledat více.
Napsal: 14 úno 2008 18:05
od LaresG
franticek píše:Nejsem si zcela jist, ale měl by jsi asi ten soubor otevřít jako objekt typu FSO a poté se pokusit použít metodu print anebo zavolat systemovou funkci pro tisk a jako parametr použít ten soubor. Pokud nic nenajdeš, zkusím pohledat více.
Myslíš ten textovej otevřít jako FSO ? Protože já ten vytvořenej txt soubor potřebuju automaticky tisknout
Napsal: 18 úno 2008 16:28
od franticek
Jak jsem hledal, tak to budeš asi musel udělat voláním win API pro tisk, nic jiného jsem zatím nenašel.
Napsal: 18 úno 2008 18:48
od maiki
Tohle jsem ještě nikdy neřešil, ale v kódu VBA se nedá přímo zasílat do tiskárny. Musíš použít příslušné objekty té dané aplikace. Nevím jestli to píšete pod Wordem, Excelem, Accessem... měl by to snad být objekt Printer a metoda Print. Poraď se s nápovědou.
Napsal: 18 úno 2008 19:49
od LaresG
Nedá přímo zasílat do tiskárny já tedy jako nevím jinak bych se neradil , ale někdo říkal něco o příkazu LPT
Napsal: 18 úno 2008 22:28
od maiki
no tak zkus Open "LPT1:" for Output as 1 ale v dnešní době kdy je všechno USB nevím jestli to pojede na USB tiskárně
no teď jsem se díval v editoru VBA v Accessu a nevím jak to udělat... Printer objekt v Accessu slouží jen na nastavení vlastností tiskárny a tisku...
váš učitel vám dává pěkně přiblbé úkoly... přece LPT je dávno minulostí!!! a jinak komplexita tisku z kódu ve VBA podle všeho přesahuje mnohonásobně samotný akt zápisu do souboru, volání WIndows API, desítky řádků kódu
já bych si na to udělal v Accessu sestavu na základě tabulky (pravděpodobně) a do ní to zapsal a pak ji otevřel jako preview na tiskárně a tečka
Napsal: 20 úno 2008 16:52
od franticek
Něco jsem našel na webu
tady. nebo
tady
Každopádně to je celkem blý úkol pro začátečníky.
Napsal: 21 úno 2008 19:05
od LaresG
Zkusím si v tom pročíst kdybych potřeboval ještě pomoci tak napišu