--- title: "Skriva ut testsida" type: "forum-thread" url: "https://www.webforum.nu/amne/programmering/95244-skriva-ut-testsida" topic: "Programmering" topic_url: "https://www.webforum.nu/amne/programmering" author: "Börje" published: "2004-01-19T20:29:41.000Z" updated: "2004-01-26T22:22:20.000Z" replies: 19 views: 709 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/95244-skriva-ut-testsida" --- # Skriva ut testsida ## #1 — Börje, 2004-01-19T20:29Z Hej Alla duktiga! Har en liten undran... Vet inte om den platsar här. Har hört att man kan göra små batch(?)filer och liknande som utför både det ena och det andra automatiskt när man tex slår på datorn. Nu undrar jag om man kan skriva, och i sådana fall nån kan berätta hur, ett program som skriver ut en testsida, den vanliga Windows testsida från skrivaren, med automatik? Till exempel en gång i veckan? Varför? Jo, genom att jag skriver ut så sällan så torkar ju munstyckena ihop och blir ju värdelösa och måste köpa nytt för flera hundra kronor. Problemet är att jag inte kommer ihåg att skriva ut nån testsida själv med jämna mellan rum förrän det är för sent. Tacksam för svar och tack på förhand Börje =:) Permalänk: https://www.webforum.nu/p/95244 ## #2 — Josef, 2004-01-19T20:39Z Du borde väl kunna skriva en .bat fil som du schemalägger så att den körs en gång i veckan... Hur du gör detta vet jag dock inte. ;) Permalänk: https://www.webforum.nu/p/1254954 ## #3 — Börje, 2004-01-19T20:52Z Apessis. Det var nåt sånt jag menade men jag vet ju inte hur. Hoppas det finns nån annan som kan/vill hjälpa mej... Börje =:) Permalänk: https://www.webforum.nu/p/1254969 ## #4 — niko, 2004-01-19T23:05Z Om du Word installerat så kan du knåpa ihop ett färgglatt Word-dokument och sen lägga in en VBS-fil med detta innehåll: ``` ' Printout.vbs Set w = CreateObject("Word.Application") w.Documents.Open("") w.Visible = false w.PrintOut Do while w.BackgroundPrintingStatus WScript.Sleep 1000 loop w.quit ``` i schemaläggaren med nån veckas intervall. Permalänk: https://www.webforum.nu/p/1255069 ## #5 — Börje, 2004-01-19T23:24Z Hej Niko! Tack för ditt svar. Jag måste dessvärre få ställa några följdfrågor. Jag skapar alltså en fil med detta innehåll med filnamnstillägget VBS? Sökvägen till mitt dokument är väl då inklusive filnamnet på det "färgglada" Word-dokument som jag skapat? Sökvägen är väl för övrigt det enda som jag ska ändra i programkoden, eller hur? VBS-filen gör jag väl som vanligt med NotePad för att få oformaterad text, eller hur? Tack på förhand. Börje =:) Permalänk: https://www.webforum.nu/p/1255079 ## #6 — niko, 2004-01-19T23:31Z Ja, ja, ja och ja. Medan du testar kan du dessutom ha Visible = **true** så ser du mer exakt vad som händer (eller går fel). Permalänk: https://www.webforum.nu/p/1255083 ## #7 — Börje, 2004-01-19T23:47Z Tack för hjälpen Niko! Nu ska vi se hur jag lyckas, Ha´t så bra!! Börje =:) Permalänk: https://www.webforum.nu/p/1255086 ## #8 — Börje, 2004-01-25T18:06Z Hallo Niko Hej Niko! Du hjälpte mej med ett skript (?) för att skriva ut en testsida. Har skapat programkoden och när jag dubbelklickar på vbs-filen så skrivs testsidan ut men inte när jag har lagt in den i schemaläggaren. Vad är det som är fel tror du? Jag kan väl inte ändra filnamnstillägget till .exe för då körs ju inte programmet... Tack på förhand igen ;-) Börje =:) Permalänk: https://www.webforum.nu/p/1260810 ## #9 — niko, 2004-01-25T19:05Z Jag kan nog inte riktigt säga vad som är problemet på rak arm: 1\. Är du säker på att du schemalagt den på rätt sätt? Om du kör med *w.Visible = true* och 1-minutsintervall, ser du då Word fladdra förbi med jämna mellanrum? Annars har du gjort nåt fel och behöver kolla igenom inställningarna för aktiviteten. 2\. Vilken användare har du valt på aktiviteten? Valde du samma konto som du var inloggad som när du dubbelklickade? 3\. Är maskinen påloggad när du försöker köra aktiviteten? Om du *inte* är det så kommer det inte att funka rakt av. Dels finns ingen default-skrivare, vilket *PrintOut* förutsätter och du kommer istället att behöva ange den med namn skulle jag tro. Dels kan jag också tänka mig andra problem när det gäller Word. Återkom i så fall. Permalänk: https://www.webforum.nu/p/1260822 ## #10 — Börje, 2004-01-25T19:31Z Hej Niko! Svarar på dina frågor i tur o ordning: 1: Jag tror att jag schemalagt riktigt. Har jämfört med Nortons Antivirus schemalägning och förutom intervallen och starttiden, samt naturligtvis, info i "kör"-rutan under fliken aktivitet så är allt lika. Inställningarna för energisparfunktionen ska ju inte ha nån betydelse. 2: Jag har valt samma användare, och Ja. 3: Maskinen är påloggad och eftersom jag bara har en skrivare ansluten så måste ju den vara default. Gjorde som du sa och ställde aktiviteten till 1-minutsintervall men inget händer... Jag klistrar in din kod här med mina ändringar för att du ska få se om jag gjort fel någonstans: ' Printout.vbs Set w = CreateObject("Word.Application") w.Documents.Open("H:\\Skript\\Automatisk utskrift av testsida\\testsidan.doc") w.Visible = true w.PrintOut Do while w.BackgroundPrintingStatus WScript.Sleep 1000 loop w.quit Tack igen för att du orkar bry dej i mitt lilla problem! Börje =:) Permalänk: https://www.webforum.nu/p/1260828 ## #11 — niko, 2004-01-25T20:30Z > Gjorde som du sa och ställde aktiviteten till 1-minutsintervall men inget händer... Ja, men isåf så måste det vara nåt fel med inställningarna. När jag provar (W2k) så ser jag Word swischa förbi. Mitt tips är att du börjar från scratch: Lägg upp calc.exe eller notepad.exe i ett visst intervall i schemaläggaren. När du sen fått *det* att funka som du vill så högerklickar du på aktiviteten och ändrar sökvägen till att peka ut vbs-filen istället. Då *ska* det funka. Vilken Word-version kör du förresten? Jag kör 2000. Permalänk: https://www.webforum.nu/p/1260855 ## #12 — Börje, 2004-01-25T20:51Z Jag har hela Office-sviten i XP-serien på svenska. Ska testa att lägga in kalkylatorn eller nåt i stället. Tack igen för hjälpen! Kanon! Börje =:) Permalänk: https://www.webforum.nu/p/1260869 ## #13 — Börje, 2004-01-25T22:47Z Hej igen! Får till svar i statusen på min schemaläggning att den inte kunde köras "...eftersom ett felaktigt lösenord eller användarnamn angavs". MÅSTE man ha ett lösenord? Isf, måste det vara samma som jag använder vid inloggning? Jag har nämligen inget lösenord när jag loggar in. Jag har både testat att bara ok:a inloggningsrutan och sätta in ett lösenord där men resultatet blir det samma... Och återigen, Antivirusen, funkar ju utan att jag angett nått lösenord vid installationen av det programmet... Förstår inte varför det inte vill funka. Börje Permalänk: https://www.webforum.nu/p/1260910 ## #14 — Börje, 2004-01-25T23:09Z Ger upp för idag... Min stackars hjärna kanske funkar bättre efter en natts sömn ;-) Börje =:) Permalänk: https://www.webforum.nu/p/1260915 ## #15 — niko, 2004-01-25T23:10Z Jaha, det är en sån där XP-grej med konton utan lösenord. Nu kör jag inte själv XP så jag vet inte hur (om) man kan lösa det annat än att faktiskt se till att ha ett lösenord på sitt konto? Du kunde ju prova att lägga upp ett nytt konto *med* lösenord, samma rättigheter, samma default-skrivare och sen ange att aktiviteten ska köras under det kontot? Permalänk: https://www.webforum.nu/p/1260916 ## #16 — Börje, 2004-01-25T23:12Z Hm.. Ska testa det i morgon... Sov gott! Börje =:) Permalänk: https://www.webforum.nu/p/1260917 ## #17 — niko, 2004-01-26T00:16Z Här är en annan variant om du inte får rätt på schemaläggaren: ``` Set objRegistry = GetObject("winmgmts://./root/default:StdRegProv") Const HKEY_LOCAL_MACHINE = &H80000002 sPath = "SOFTWARE\TestPage" call objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, sPath, "LastTime", sVal) if sVal & "" = "" then objRegistry.CreateKey HKEY_LOCAL_MACHINE, sPath call objRegistry.SetStringValue(HKEY_LOCAL_MACHINE, sPath, "LastTime", CStr(now)) sVal=now end if if DateDiff("d", sVal, now) > 6 then ' Kolla om 7 dar förflutit. Set w = CreateObject("Word.Application") w.Documents.Open("H:\Skript\Automatisk utskrift av testsida\testsidan.doc") w.Visible = false w.PrintOut Do while w.BackgroundPrintingStatus WScript.Sleep 1000 loop w.quit call objRegistry.SetStringValue(HKEY_LOCAL_MACHINE, sPath, "LastTime", CStr(now)) end if ``` Om du lägger det i en vbs-fil i autostartmappen så kommer du att få en utskrift varje gång du loggar in om det gått mer än 6 dagar sen förra utskriften. (OBS: Du får ingen utskrift första gången du kör den.) Permalänk: https://www.webforum.nu/p/1260925 ## #18 — Börje, 2004-01-26T21:35Z Hej Niko! Tack för den extra varianten. Med den metoden behöver jag med andra ord inte ha något lösenord på mitt konto? Jag gjorde ett testkonto som du tipsade mej om och vips så fungerade det. I varje fall från testkontot och då utgår jag från att det funkar på mitt ordinarie konto också... eller kan jag inte utgå från det? I varje fall, åter igen tack så mycket för hjälpen. Jag blir imponerad och häpen varje gång jag ställer en fråga hur många, snabba, duktiga och hjälpsamma forummänniskor det finns som gärna delar med sej av sina kunskaper. Detta är väl inte dagensros forumet precis men tack alla överlag i alla fall!! Börje =:) Permalänk: https://www.webforum.nu/p/1261367 ## #19 — niko, 2004-01-26T22:16Z > Tack för den extra varianten. Med den metoden behöver jag med andra ord inte ha något lösenord på mitt konto? Nej, den kör ju varje gång du loggar på och använder inte schemaläggaren alls. Jag tycker till och med att det är en bättre och enklare variant. Om det inte är så att du *aldrig* stänger av din dator? > I varje fall från testkontot och då utgår jag från att det funkar på mitt ordinarie konto också... eller kan jag inte utgå från det? Det *borde* det göra om det andra kontot har läs- och exekveringsrättigheter på vbs-filen, rättigheter på Word, samma default-skrivare osv .. och det har du ju redan testat när du när du var inloggad på det andra kontot. Men eftersom jag själv är misstänksam av naturen så skulle jag inte tagit det för givet, utan högerklickat på aktiviteten och valt: "Run/Kör" ifrån mitt vanliga konto bara för att vara *helt* säker. Permalänk: https://www.webforum.nu/p/1261386 ## #20 — Börje, 2004-01-26T22:22Z Jag ska göra som du säger och därmed får vi väl avsluta den här sejouren(?) och tacka för alla dina råd o tips. Börje =:) Permalänk: https://www.webforum.nu/p/1261389 --- Tråden på webben: https://www.webforum.nu/amne/programmering/95244-skriva-ut-testsida