Potrzebuję pomocy w być może prostej sprawie o której poniżej, ale na wstępie mała prośba by odpowiedź na posta wysłać też mailowo na
adres rafal_sosz@interia.pl, ponieważ nie wszędzie mam możliwość sprawdzenia forum a maila tak.
Nie do końca wykonuje się nagrane makro.
Wstępnie dodam że pożądany efekt działania makra to:
1) ma wstawić w daną komórkę np $c$2 liczbę 1
następuje polecenie wydruku (zdefiniowanego wydrukiem arkusza)
w dalszej linii makro cofa się do powyższej komórki
dalej
2) ma wstawić w tą samą komórkę liczbę 2
następuje polecenie wydruku (zdefiniowanego wydrukiem arkusza)
w dalszej linii makro cofa się do powyższej komórki
dalej
3) ma wstawić w tą samą komórkę liczbę 3
następuje polecenie wydruku (zdefiniowanego wydrukiem arkusza)
w dalszej linii makro cofa się do powyższej komórki
itd... ma wstawiać i drukować arkusz po zmienianej wartości w komórce $c$2
EFEKT - na drukarce leżą 3 kartki papieru i na każdej wartość wpisana
kolejno 1, 2, 3
----------------------------------------------------------------------------------------------------------
Jest mi to niezmiernie potrzebne do szybkiego drukowania list obecności dla
ok 100os (czyli będzie wstawiał wartości od 1 do 100)
Nigdy nie miałem do czynienia z VB, dlatego próby zmian w kodzie nie
wychodzą niestety
Załączam takie działanie jak wyżej (3 punkty) podczas nagrania makro:
Po wykonaniu makra drukuje tylko 1 pierwszą stronę z wartością 1 !!
z góry dzięki za pomoc!
Kod: Zaznacz cały
REM ***** BASIC *****
sub druk1
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
args1(0).Value = "1"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Printer"
args3(0).Value = "Canon iP1700"
dispatcher.executeDispatch(document, ".uno:Printer", "", 0, args3())
rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Copies"
args4(0).Value = 1
args4(1).Name = "Collate"
args4(1).Value = true
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$C$2"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "StringName"
args6(0).Value = "2"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args6())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
rem ----------------------------------------------------------------------
dim args8(1) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Copies"
args8(0).Value = 1
args8(1).Name = "Collate"
args8(1).Value = true
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args8())
rem ----------------------------------------------------------------------
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ToPoint"
args9(0).Value = "$C$2"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args9())
rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "StringName"
args10(0).Value = "3"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args10())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
rem ----------------------------------------------------------------------
dim args12(1) as new com.sun.star.beans.PropertyValue
args12(0).Name = "Copies"
args12(0).Value = 1
args12(1).Name = "Collate"
args12(1).Value = true
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args12())
rem ----------------------------------------------------------------------
dim args13(1) as new com.sun.star.beans.PropertyValue
args13(0).Name = "By"
args13(0).Value = 1
args13(1).Name = "Sel"
args13(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args13())
end sub
===========================================================================
--