Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 36517 Skopiuj do schowka drukowanie jednostronne i dwustronne
Autor Wiadomość
colpix
Fan Excela


Pomógł: 21 razy
Posty: 96
Wysłany: 15-05-2013, 09:22   drukowanie jednostronne i dwustronne

Witam,
w skoroszycie mam kilka arkuszy. Każdy arkusz ma przycisk do drukowania z następującym kodem:
Kod:

Private Sub Drukujx2_Click()
Worksheets("Raport").PageSetup.PrintArea = "A1:I" & last(Worksheets("Raport").Columns("A:I"))
Worksheets("Raport").PrintOut Copies:=2, Preview:=False, Collate:=True
Worksheets("Raport").PageSetup.PrintArea = ""
End Sub

Function ostatni(rng As Excel.Range) As Long
    On Error Resume Next
    ostatni = rng.Find(What:="*", _
                    After:=rng.Cells(1), _
                    Lookat:=xlPart, _
                    LookIn:=xlValues, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious, _
                    MatchCase:=False).Row
    On Error GoTo 0

End Function

Proszę o pomoc, co trzeba w powyższym kodzie dopisać, aby wydruk był jednostronny lub dwustronny. Ustawiałem to w opcjach wydruku dla każdego arkusza, w excel 2010:
Cytat:
układ strony-tytuły wydruku-opcje-drukowanie dwustronne(brak lub dłuższa krawędź)

i u mnie działa, ale plik jest na dysku sieciowym i korzysta z niego jeszcze jedna osoba. U niej też pozmieniałem te opcje, ale po ponownym otwarciu skoroszytu są one pozmieniane. Np.:Arkusz 1 ustawiam na wydruk jednostronny, a po ponownym otwarciu jest dupleks, dlatego chcę to określić w kodzie, czy wydruk ma być dwustronny czy jednostronny.

Za pomoc z góry dziękuję.
_________________
Nie jestem leniwy, jestem energooszczędny
Pozdrawiam
colpix
ID posta: 195511 Skopiuj do schowka
 
 
Artik 



Pomógł: 1724 razy
Posty: 5531
Wysłany: 15-05-2013, 10:37   

To jest grubsza sprawa.
Naciskają przycisk [Opcje...] nie jesteś już w Excelu, a w sterowniku drukarki. Ustawienie więc druku dwustronnego, poprawianie jakości obrazu i innych jest niemożliwe z poziomu aplikacji Excel. Z pewnością trzeba by się posłużyć API. Tyle, że może pojawić się problem, że dany kod będzie działał dla określonej drukarki. Po jej zmianie, może się sypnąć.
Ostatnich dwóch zdań nie jestem pewien.

Artik
ID posta: 195521 Skopiuj do schowka
 
 
colpix
Fan Excela


Pomógł: 21 razy
Posty: 96
Wysłany: 15-05-2013, 12:41   

no to licho :-( myślałem że od 2008r. może ktoś już to jakoś rozwiązał.
Cytat:
Artik Wysłany: 02-07-2008, 13:34
Nikel napisał/a: Tworzyłem makro wydruku ...


A co może być powodem tego, że u mnie ustawiłem Arkusz1 przez:
Cytat:
układ strony-tytuły wydruku-opcje-drukowanie dwustronne(brak lub dłuższa krawędź)
jako drukowanie jednostronne i to działa, natomiast u koleżanki jak tak ustawię, zapiszę plik, a następnie go otworzę to znowu ustawiony jest dupleks? Korzystamy z tej samej drukarki.
_________________
Nie jestem leniwy, jestem energooszczędny
Pozdrawiam
colpix
ID posta: 195537 Skopiuj do schowka
 
 
Artik 



Pomógł: 1724 razy
Posty: 5531
Wysłany: 15-05-2013, 14:00   

Co jest powodem, że się samowolnie przestawia opcja drukowania nie wiem. Być może trzeba naprawić Excela (Office-a). Przyczyną ustawiania się na druk dwustronny może być ustawienie systemowe w Windowsie.

Artik
ID posta: 195544 Skopiuj do schowka
 
 
colpix
Fan Excela


Pomógł: 21 razy
Posty: 96
Wysłany: 16-05-2013, 10:14   

Ja tym bardziej nie wiem. Zmieniam na jednostronny, koleżanka ma dupleks. Zmieniam w komputerze u koleżanki z dupleks na jednostronne to znowu u mnie jest dupleks. To samo z plikami word-a. :-( może informatyk coś wymyśli, na razie myśli :mrgreen:
_________________
Nie jestem leniwy, jestem energooszczędny
Pozdrawiam
colpix
ID posta: 195642 Skopiuj do schowka
 
 
Artik 



Pomógł: 1724 razy
Posty: 5531
Wysłany: 16-05-2013, 10:18   

A gdyby już było normalnie, spróbuj rozwiązania Magbo z cytowanego przez ciebie wątku.

Artik
ID posta: 195644 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum


Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.