|
|
 | Knap til udskrivning i excel
Fra : Jacob Pr.. |
Dato : 10-01-05 10:19 |
|
Hej
Jeg vil gerne lave nogle knapper til udskrivning i excel.
Jeg har 3 sider(faner), og ønsker at gøre følgende:
side 1 på printer 1
side 2 på printer 2
side 3 på printer 2
same en knap til aktivering af alle sider.
Hvordan gør jeg det ?
Jeg bruger Excel 2003
Venlig hilsen Jacob
| |
 Jørgen Bondesen (10-01-2005)
| Kommentar
Fra : Jørgen Bondesen |
Dato : 10-01-05 17:13 |
|
Hej Jacob
Her er lidt inspiration.
Du må selv optage en makro hvor du vælger printer og så udskifte: "hp
deskjet 960c on LPT1:"
Makroen er sat op til at printe de 3 første ark fra venstre.
Nedenstående er testet i XP2002, uk.
Option Explicit
Sub ark1_Print()
ActiveWorkbook.Sheets(1).PrintOut Copies:=1, _
ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
End Sub
Sub ark2_Print()
ActiveWorkbook.Sheets(2).PrintOut Copies:=1, _
ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
End Sub
Sub ark3_Print()
ActiveWorkbook.Sheets(3).PrintOut Copies:=1, _
ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
End Sub
Sub ark1_til_3_Print()
With ActiveWorkbook
.Sheets(1).PrintOut Copies:=1, _
ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
.Sheets(2).PrintOut Copies:=1, _
ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
.Sheets(3).PrintOut Copies:=1, _
ActivePrinter:="SnagIt 7 on Ne00:", Collate:=True
End With
End Sub
--
Med venlig hilsen
Jørgen Bondesen
Followup to newsgroup only please.
Jeg ønsker, at vi kommunikere via nyhedsgruppen, tak.
"Jacob Pr.." <jacob@jp31@get2net.dk> wrote in message
news:41e248cc$0$191$edfadb0f@dread11.news.tele.dk...
> Hej
> Jeg vil gerne lave nogle knapper til udskrivning i excel.
> Jeg har 3 sider(faner), og ønsker at gøre følgende:
> side 1 på printer 1
> side 2 på printer 2
> side 3 på printer 2
> same en knap til aktivering af alle sider.
>
> Hvordan gør jeg det ?
>
> Jeg bruger Excel 2003
>
> Venlig hilsen Jacob
>
| |
Jacob Pristed (11-01-2005)
| Kommentar
Fra : Jacob Pristed |
Dato : 11-01-05 21:28 |
|
Tak for svaret
Jeg er desværre ikke så meget inde i dette makro/knapper er der en der vil
hjælpe mig.
På forhånd tak
"Jørgen Bondesen" <bondesen@cool.dk> skrev i en meddelelse
news:cru9ic$16of$1@news.cybercity.dk...
> Hej Jacob
>
> Her er lidt inspiration.
> Du må selv optage en makro hvor du vælger printer og så udskifte: "hp
> deskjet 960c on LPT1:"
>
> Makroen er sat op til at printe de 3 første ark fra venstre.
>
> Nedenstående er testet i XP2002, uk.
>
> Option Explicit
>
> Sub ark1_Print()
> ActiveWorkbook.Sheets(1).PrintOut Copies:=1, _
> ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
> End Sub
>
> Sub ark2_Print()
> ActiveWorkbook.Sheets(2).PrintOut Copies:=1, _
> ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
> End Sub
>
> Sub ark3_Print()
> ActiveWorkbook.Sheets(3).PrintOut Copies:=1, _
> ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
> End Sub
>
> Sub ark1_til_3_Print()
>
> With ActiveWorkbook
> .Sheets(1).PrintOut Copies:=1, _
> ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
> .Sheets(2).PrintOut Copies:=1, _
> ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
> .Sheets(3).PrintOut Copies:=1, _
> ActivePrinter:="SnagIt 7 on Ne00:", Collate:=True
> End With
> End Sub
>
>
> --
> Med venlig hilsen
> Jørgen Bondesen
>
> Followup to newsgroup only please.
> Jeg ønsker, at vi kommunikere via nyhedsgruppen, tak.
>
>
> "Jacob Pr.." <jacob@jp31@get2net.dk> wrote in message
> news:41e248cc$0$191$edfadb0f@dread11.news.tele.dk...
>> Hej
>> Jeg vil gerne lave nogle knapper til udskrivning i excel.
>> Jeg har 3 sider(faner), og ønsker at gøre følgende:
>> side 1 på printer 1
>> side 2 på printer 2
>> side 3 på printer 2
>> same en knap til aktivering af alle sider.
>>
>> Hvordan gør jeg det ?
>>
>> Jeg bruger Excel 2003
>>
>> Venlig hilsen Jacob
>>
>
>
| |
 Jørgen Bondesen (11-01-2005)
| Kommentar
Fra : Jørgen Bondesen |
Dato : 11-01-05 23:38 |
|
Hej Jacob.
Velbekomme.
Jeg vender tilbage i morgen aften.
--
Med venlig hilsen
Jørgen Bondesen
Followup to newsgroup only please.
Jeg ønsker, at vi kommunikere via nyhedsgruppen, tak.
"Jacob Pristed" <jp31@get2net.dk> wrote in message
news:41e436fb$0$179$edfadb0f@dread11.news.tele.dk...
> Tak for svaret
> Jeg er desværre ikke så meget inde i dette makro/knapper er der en der vil
> hjælpe mig.
> På forhånd tak
>
> "Jørgen Bondesen" <bondesen@cool.dk> skrev i en meddelelse
> news:cru9ic$16of$1@news.cybercity.dk...
>> Hej Jacob
>>
>> Her er lidt inspiration.
>> Du må selv optage en makro hvor du vælger printer og så udskifte: "hp
>> deskjet 960c on LPT1:"
>>
>> Makroen er sat op til at printe de 3 første ark fra venstre.
>>
>> Nedenstående er testet i XP2002, uk.
>>
>> Option Explicit
>>
>> Sub ark1_Print()
>> ActiveWorkbook.Sheets(1).PrintOut Copies:=1, _
>> ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
>> End Sub
>>
>> Sub ark2_Print()
>> ActiveWorkbook.Sheets(2).PrintOut Copies:=1, _
>> ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
>> End Sub
>>
>> Sub ark3_Print()
>> ActiveWorkbook.Sheets(3).PrintOut Copies:=1, _
>> ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
>> End Sub
>>
>> Sub ark1_til_3_Print()
>>
>> With ActiveWorkbook
>> .Sheets(1).PrintOut Copies:=1, _
>> ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
>> .Sheets(2).PrintOut Copies:=1, _
>> ActivePrinter:="hp deskjet 960c on LPT1:", Collate:=True
>> .Sheets(3).PrintOut Copies:=1, _
>> ActivePrinter:="SnagIt 7 on Ne00:", Collate:=True
>> End With
>> End Sub
>>
>>
>> --
>> Med venlig hilsen
>> Jørgen Bondesen
>>
>> Followup to newsgroup only please.
>> Jeg ønsker, at vi kommunikere via nyhedsgruppen, tak.
>>
>>
>> "Jacob Pr.." <jacob@jp31@get2net.dk> wrote in message
>> news:41e248cc$0$191$edfadb0f@dread11.news.tele.dk...
>>> Hej
>>> Jeg vil gerne lave nogle knapper til udskrivning i excel.
>>> Jeg har 3 sider(faner), og ønsker at gøre følgende:
>>> side 1 på printer 1
>>> side 2 på printer 2
>>> side 3 på printer 2
>>> same en knap til aktivering af alle sider.
>>>
>>> Hvordan gør jeg det ?
>>>
>>> Jeg bruger Excel 2003
>>>
>>> Venlig hilsen Jacob
>>>
>>
>>
>
>
| |
Jørgen Bondesen (12-01-2005)
| Kommentar
Fra : Jørgen Bondesen |
Dato : 12-01-05 17:19 |
|
Hej Jacob.
Skal vi lige være enige om følgende:
Du har en excel-fil med 3 faneblade, 1, 2, 3
Faneblad 1 skal udprintes på printer nr. 1 som kunne være en HP printer.
Faneblad 2 og 3 skal udprintes på printer nr. 2 som kunne være en OKI
printer.
Du bruger Excel 2003, men er det dansk eller Engelsk?
--
Med venlig hilsen
Jørgen Bondesen
Followup to newsgroup only please.
Jeg ønsker, at vi kommunikere via nyhedsgruppen, tak.
"Jørgen Bondesen" <bondesen@cool.dk> wrote in message
news:cs1kff$23uv$1@news.cybercity.dk...
> Hej Jacob.
>
> Velbekomme.
>
> Jeg vender tilbage i morgen aften.
>
> --
> Med venlig hilsen
> Jørgen Bondesen
| |
Jacob Pristed (12-01-2005)
| Kommentar
Fra : Jacob Pristed |
Dato : 12-01-05 22:49 |
|
Hej igen
printer 1 hplaser1220
printer 2 hpink750
jeg bruger en dansk version af excel
På forhånd tak
Jacob
"Jørgen Bondesen" <bondesen@cool.dk> skrev i en meddelelse
news:cs3ilc$12ma$1@news.cybercity.dk...
> Hej Jacob.
>
> Skal vi lige være enige om følgende:
>
> Du har en excel-fil med 3 faneblade, 1, 2, 3
> Faneblad 1 skal udprintes på printer nr. 1 som kunne være en HP printer.
> Faneblad 2 og 3 skal udprintes på printer nr. 2 som kunne være en OKI
> printer.
>
> Du bruger Excel 2003, men er det dansk eller Engelsk?
>
> --
> Med venlig hilsen
> Jørgen Bondesen
>
> Followup to newsgroup only please.
> Jeg ønsker, at vi kommunikere via nyhedsgruppen, tak.
>
>
> "Jørgen Bondesen" <bondesen@cool.dk> wrote in message
> news:cs1kff$23uv$1@news.cybercity.dk...
>> Hej Jacob.
>>
>> Velbekomme.
>>
>> Jeg vender tilbage i morgen aften.
>>
>> --
>> Med venlig hilsen
>> Jørgen Bondesen
>
>
| |
Jørgen Bondesen (13-01-2005)
| Kommentar
Fra : Jørgen Bondesen |
Dato : 13-01-05 20:32 |
|
Hej Jacob.
Skal vi komme igang? 
Hvis jeg ikke har udtrykt mig klart og tydeligt eller min oversættelse til
dansk halter lidt, så skriv.
Vi starter med at optage 2 makroer således, at vi kan finde ud af hvad de 2
printere skal hedde.
Opret en fil: Testprint og indtast et 2 tal i celle a1 på det første ark.
Menu: Funktioner - Makro - optag makro. (du kan stoppe samme sted) - Gem i
denne projektmappe - ok - filewr - print - vælg pronter 1 - ok - Stop makro.
Gentag ovenstående, men vælg printer 2.
For at få adgeng til de 2 makroer benyter vi genvejstaste [Alt + F11] -
[Crel + r] - til venstre er din fil hvor du markerer mappen: Modules og
taster enter (eller dobbeltklikker) - marker Module og tast enter. Nu er du
inde hvor du optog de 2 makroer.
Her kan du kopierer de 4 makroer ind som jeg har sendt tidligere.
Udskift denne tekst "hp deskjet 960c on LPT1:" med det du har optaget
således, at ark og printer passer sammen.
Når dette er gjort, kan du aktiverer makroerne med F8 (trinvis) eller F5
(afvikler makro).
Husk at udfylde ark med date, eller får du ingen udskrift.
Når dette er på plads må vi afklarer hvad du forstår med knapper.
--
Med venlig hilsen
Jørgen Bondesen
Followup to newsgroup only please.
Jeg ønsker, at vi kommunikere via nyhedsgruppen, tak.
"Jacob Pristed" <jp31@get2net.dk> wrote in message
news:41e5a38c$0$203$edfadb0f@dread11.news.tele.dk...
> Hej igen
> printer 1 hplaser1220
> printer 2 hpink750
> jeg bruger en dansk version af excel
>
> På forhånd tak
> Jacob
| |
Jacob Pr.. (15-01-2005)
| Kommentar
Fra : Jacob Pr.. |
Dato : 15-01-05 22:33 |
|
JEG TAKKER MANGE GANGE
Det er stort når nogen gider hjælpe andre, især i det omfang, Tak
Jeg har fået det til og virke og køre med genvejstaster, ikke Knapper(link
til udskrivning) og det virker perfekt.
VH. Jacob
"Jørgen Bondesen" <bondesen@cool.dk> skrev i en meddelelse
news:cs6iar$1e7o$1@news.cybercity.dk...
> Hej Jacob.
>
> Skal vi komme igang?
>
> Hvis jeg ikke har udtrykt mig klart og tydeligt eller min oversættelse til
> dansk halter lidt, så skriv.
>
> Vi starter med at optage 2 makroer således, at vi kan finde ud af hvad de
> 2 printere skal hedde.
>
> Opret en fil: Testprint og indtast et 2 tal i celle a1 på det første ark.
>
> Menu: Funktioner - Makro - optag makro. (du kan stoppe samme sted) - Gem i
> denne projektmappe - ok - filewr - print - vælg pronter 1 - ok - Stop
> makro.
>
> Gentag ovenstående, men vælg printer 2.
>
> For at få adgeng til de 2 makroer benyter vi genvejstaste [Alt + F11] -
> [Crel + r] - til venstre er din fil hvor du markerer mappen: Modules og
> taster enter (eller dobbeltklikker) - marker Module og tast enter. Nu er
> du inde hvor du optog de 2 makroer.
>
> Her kan du kopierer de 4 makroer ind som jeg har sendt tidligere.
> Udskift denne tekst "hp deskjet 960c on LPT1:" med det du har optaget
> således, at ark og printer passer sammen.
>
> Når dette er gjort, kan du aktiverer makroerne med F8 (trinvis) eller F5
> (afvikler makro).
>
> Husk at udfylde ark med date, eller får du ingen udskrift.
>
> Når dette er på plads må vi afklarer hvad du forstår med knapper.
>
> --
> Med venlig hilsen
> Jørgen Bondesen
>
> Followup to newsgroup only please.
> Jeg ønsker, at vi kommunikere via nyhedsgruppen, tak.
>
>
> "Jacob Pristed" <jp31@get2net.dk> wrote in message
> news:41e5a38c$0$203$edfadb0f@dread11.news.tele.dk...
>> Hej igen
>> printer 1 hplaser1220
>> printer 2 hpink750
>> jeg bruger en dansk version af excel
>>
>> På forhånd tak
>> Jacob
>
>
| |
Jørgen Bondesen (16-01-2005)
| Kommentar
Fra : Jørgen Bondesen |
Dato : 16-01-05 00:18 |
|
Hej Jacob.
Velbekomme og tak for tilbagemeldingen.
Det er altid rart at hører, at NG hjælp bliver værdsat.
--
Med venlig hilsen
Jørgen Bondesen
Followup to newsgroup only please.
Jeg ønsker, at vi kommunikere via nyhedsgruppen, tak.
"Jacob Pr.." <jacob@jp31@get2net.dk> wrote in message
news:41e98c09$0$187$edfadb0f@dread11.news.tele.dk...
> JEG TAKKER MANGE GANGE
> Det er stort når nogen gider hjælpe andre, især i det omfang, Tak
> Jeg har fået det til og virke og køre med genvejstaster, ikke Knapper(link
> til udskrivning) og det virker perfekt.
> VH. Jacob
| |
|
|