VBA - Vytvoření souboru a jeho následný tisk Vyřešeno

[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

[Reklama]

[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 ?

[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.

[LaresG]

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

[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.

[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.

[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

[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

[franticek]

Něco jsem našel na webu tady. nebo tady
Každopádně to je celkem blý úkol pro začátečníky.

[LaresG]

Zkusím si v tom pročíst kdybych potřeboval ještě pomoci tak napišu